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PREFACE 


ii 


This. document describes ata-30 Terminal 
Module, which is an in part of the 
Manufacturing Information =en ations in system 
configurations are explai ol Ctadata-30 (CD-30) 
terminals with their o ad partitions may be 
intermixed with Model 10 tion Stations and/or. 
Model 105 Attendance St system configuration. 
Code conversion to a4 “code is available but 
optional. Messages rminals may be verified by 
checking terminal T. message length. The 
message can be 
off-line or on-lin 


It is assumed he user of this manual will be familiar 
with System Te ts. He will probably be responsible 

int t atween the terminal partitions and the 
ation. 


Boer tt 
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INTRODUCTION 


The main purpose of the Manuf 
(MIS) is to process data collec 
in different manufacturing a 

the System Ten CPU and is 
output media. The Collecta 

as an interdependent par : 
data transactions from C 


formation System 
erminals located 
ais processed by 
. customer-specified 
le has been designed 
; m to process these 
0 terminals. 

Core allocation, equirements, and software 

associated with the. ‘bitions are described in 

detail in this [he examples used throughout are 

based on a standar : 

for output media 
checks are spec 


ion, and transaction validity 


where applicable. 
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Section 1 


GENERAL DESCRIPTION 


“module provides the 

and the System Ten 
ich terminal as it enters 

against a terminal/trans- 


in each CD-30 partition for 
, ID and/or transaction 


The Collectadata-30 (CD- 
interface between the CD-30 
CPU. It examines the da 
the CPU, checking each 
action table that 
correct message len 
validity. Portions 
the CD-30 code t 
CPU processing;. 


nm USASCII 6-bit subset for 
Output may or may not be 


converted to ft output code before being 
written to 2 device. Errors are logged on a 7102 
Communicati 2rmi “or Model 70 Work Station in 


addition t ing. ed on the output device as an error 


ere can be a varying number of CD=-30 
Each partition must have its own IOC 
oretical maximum of twenty terminals (ten 
tic number). Therefore, the CD-30 Terminal 
present in each CD-30 partition with only 
ying partition number and related table 
a-“being changed for each. At the start of each 
30 partition program, tests are made to see whether a 
: transaction table update message has been entered 
communication terminal, whether the system is 
ed, and whether there is a service request from a 
CD-30. enna: A service request will cause the program 
to initiate the reading process and switch partitions. 
When data transfer has been completed, control will be 
returned to the CD-30 partition program where condition 
indicators are tested to determine if the read was normal. 


je 


If not, the error will be identified and the message routed 


to the appropriate error handling routines. 
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converted to an output code, is prefixed with sees Fride! 


The number of characters. transferred into the CD-30 
terminal partition buffer is determined for use in_ code 
conversion if used, "“wrong-message-length" checks, and 
output to disc or. magnetic tape. Validation checks are 
performed on the terminal ID number and/or transaction code 
with a resulting ACK or NAK being sent to the terminal, 
which will then be released from the line. 


The terminal message, which optionally may or may not be 


Standard record identification, time-stamped, a 
the write routine. As errors are encountered 
data is extracted from the terminal message a ) Oo an 
error buffer in Common from which error 
printed on the communications terminal. 


The CD-30 Terminal Module consists of thr 
in each CD-30 partition (CD-30 Main 
Terminal/Transaction Check--TCSTRT) 
(Table Update--CDCHK). 


SYSTEM TEN OUTPUT R 


NORMAL RECORD 


RECORD 1.0. # 
(00001 thru 99999) 


| ters = OFF LI 


CONSECUT L¥$ 
DAY-OF-THE 
(001-365.366) 


~<———————- TRANSMISSION DATA —~——_ > 


HUNDRETHS 


RECORD TYPE (N) 
TERMINAL SOURCE 
C=CD-30 M=MODLS 


’ 
= 
LY «] 
Nowe 


— 
¢ 
i] 
So 
“a 


1 = ON-LINE 


ERROR RECORD - 


TIME STAMP 


CONSECUTIVE —<-——————- TRANSMISSION DATA ———— > 


| OAY-OF-THE-YEAR 


CODE . 
€ or M 


RECORD TYPE (£) 
TERMINAL SOURCE 
HUNDRETHS 


1-POS. | 1-POS. 
1 2 


= Ii net ERROR 


are | 6/28/71 
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FORMAT OF THE ERROR BUFFER (ERRBUF) 


second buffer third buffer 


EEE 0 ees nee Plt AK DTS edi a Rati ence ea 


PARTITION NO. 
(0 19) 


HOUR OF DAY 
(00 23) 


TENTHS OF HOUR 
HUNDREDTHS OF HOUR 
TERMINAL NO. 
TRANSACTION CODE 


MESSAGE LENGTH 
MESSAGE LENGTH IN TABLE 


ERROR ID CONTAINS | *Only those buffers that 
PARI - parity error Thus I, 2» or 3 error mes 
PAR2 - CD-30 fault 
PAR3 - ACK not received 
TRAN - transaction code error 
WLM - wrong length message 


re. Filled are printed. 
gages can be printed at 
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GENERAL DESCRIPTION 


SYSTEM TEN CPU 


3002 | 


/| 3002. 
TERMINAL 


TERMINATOR MOD 


3002 
TERMINAL 


3002. 
TERMINAL 


PARTITIONS 5 
THRU 19 ~ 


“} cD-30 LINES 


SAMPLE CD-30 CONFIGURATION 
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Section 2 


HARDWARE REQUIREMENTS 


In addition to a Syste ith at least 2K of core 
for each CD-30 partis . Ollowing hardware is 
required. 


Terminals: Col 01, 3002, 3022 (practical 
ma: per CD-30 partition). 


Collectadaté ninator Module: To convert Collectada 
. ignal levels to System Ten 5v logic 
e per I0C). Each PC card in 


ator module will accommodate 2 


hannels: One per CD-30 cable to 
ve as interface to the System Ten CPU 
om the terminator module. 


Magnetic tape output can use a maximum of 18 
‘terminals. An on-line disc system can use a 
17 partitions for terminals provided partition 
: by the SCA Program Module. An SCA requires two 
titions but will actually occupy only one if put in 
tion 19 because it will use the PC card that follows | 
: is martition. However, each additional SCA will require 

ull partitions and thus will decrease the maximum 
devo ed to CD-30 or MDCS terminals. 


» It is assumed that the “system in which this. module 
functions will also include a. communications terminal in 
the standard partition (Partition 0), a digital clock in 
' Partition 1, and at least one output device--magnetic tape 
or disc. The system is not limited to CD-30 terminals, | 
however; it may also include MDCS terminals (Model 100. Job 
Information Station and/or Model 105 Attendance pceeroe in 
different Pare RenOues : 
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Section 3 


CORE REQUIREMENTS AND ALLOCATION 


CORE REQUIREMENTS 


Each CD-30 Termina 
Terminal/Transactig 


(Main Line Program CDSTR and 
TRT) requires approximately 
in each CD-30 partition. The 
“requires approximately 1700 
: not include aes in common 


that are defi by the Control Module. 


ALLOCATION 


“may be loaded éeaverng with Partition 2 
ymal MIS configuration, Partition 0 and 
e Control Module and Partition 1 the Clock 
should be one CD-30 partition for each ten 
though there may be fewer than ten terminals in 
ition. By expanding a CD-30 partition to 3K 
| expand the program and Terminal/Transaction 
rable to accommodate up to twenty CD- 30 terminals as long 
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_* 


CORE REQUIREMENTS AND ALLOCATION 


TABLE 
UPDATE 
? 


BRANCH AND 
LINK COCHK, 


CDRD,CARD 
READ 


CLEAR 
INPUT AREA 
(CDIN) 


READ CD-36 
TRANSMISSION 


CONDITION 
CODE 


MOVE '2PAR2' 
TO CDERID 
(CDERSW) 


ADD'T" TO 


MOVE 'TPART' 
TO CDERID ... 
(CDERSW) 


SET PERCNT 


» ='00000' 


(ERROR COUNT) 


COMPUTE 
MESSAGE 
LENGTH 

(CDOMSGL) 


SET 
RESULT NO,| MESSAGE 
POSITIVE.) SsLENGTH 
9 ='200! 
YES 
YES --MESSAG 
ADD 210 ig LENGTH 2 


CDMSGL 


Gre ane cree nee Sew wou ew 


BRANCH & 
» LINK TO 
CODE CONVERT 


Rte aa ale cea ae cia ua aaa eesldlastod 
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Section 4 


MODULE NARRATIVE 


essina Sequence 


The detailed logic of eac uired to process a 
message from a CD-30 ter in Section 9, 
"Routine Logic". This fives ‘an overall view of the 
process in more general ‘program used in this 
manual is based on guration that includes a 
digital clock, CD-30 and at least one disc/tape 
I/O device. In thi. application, Partition 0 is 
reserved for cont i Partition 1 for the clock, 
and the balance Qf spartitions for the terminals. 


Aal/transaction table ({TCTABL) , 
partition is of major importance 
verify the terminal message by 
‘it can be used to verify the terminal 
sO be used to route the message to on- 
’ storage. This routing function is not 
,€@ program. Code conversion is required 
Lons of the message from the original CD-30 
tem Ten USASCII 6—-bit subset for processing 
all of the message may be optionally converted 
| -equired by the user for output. (Messages are 

to the SCA in USASCII. CD-30 code is considered as 


transaction. 
located in” 
because it is 
checking | : 


st computer.) All errors except — terminal 
gement errors are noted and recorded along with 

message, and all errors are reported on the. 
communications terminal so that they can be corrected 


_later. The program records parity and fault errors after 
‘reading the message, inability to transmit ACK or NAK to. 


he terminal, and invalid message lengths or terminal ID. 


Two tests are made when the CPU enters the CD-30 partition: 
any changes to the partition terminal/transaction table 
(TCTABL) that have been entered from the communications 
terminal are executed, and a check is made for a service 
request from a CD-30 terminal. If no request has been 
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MODULE NARRATIVE 


h—2 


signalled, the CPU switches to the next partition. If 


required output code. The 


' header conversion is 
transmission. 


- yeceived, 


» 


record ID. numbers, and ti 


there is a service request, the CD-30 transmission is read 


into a 200-position partition buffer for processing. 


If a fault or parity error is detected ertae the message is 


read, appropriate codes are moved into a holding area to be 


added to the mesSage when it is written. The messace 
length is computed next so that it can be verified later 
with terminal/transaction table TCTABL to be sure that th 
input data lengths from the terminal are / correct. 


Code conversion is done in several steps 
transaction code and terminal ID are pats: | 
of error messages if errors are detected. 
errors have been encountered, the calcula 
is compared to the acceptable length for, 
code and terminal ID in TCTABL (single 
require the terminal ID check). Aga 
error code is moved into a holding.a 
message later if an error is encount 


At this time the entire 22-ch 
may be optionally converted fr« 


s of identifying 
terminal ID number, 
Next, the rest of the 
rom CD-30 code to an 
‘to the SCA in USASCII, 
for this type of 


information including transa¢e 


message may be optionally.c 
output code. As dat 


CPU is acknowledged by 
» which, if properly 
inal from the line. If these 
messages connot ed to the terminal, an error 
code is moved rea, and the line is held high, 
making all t | hat line inoperative. 


Receipt of the 
sending ACK or NAK 


rea is phedieed for error codes; if there is 
acon message 1s written to the output 
e in Common. Errors require processina 
on. One of the error buffers is filled 
2 : artition number, terminal ID, transaction 
ssage a igth, and time stamp. On the next pass 
Partition 0, the buffer will be printed. If the 
bei processed has $incurred  terminal- 
sf only, it is now sent to the write 
a valid message; the error, however, is noted on 
ications terminal to indicate the possible need 
‘Ef another error has occured, 
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SYSTEM TEN CPU 


IBM 360 


ye Ee 
Code Convert EBCDIC : 2 Eo ep C1 
Module 5008 USASCIT = 


CD-30 
Terminal 'Q' ie 


CD-30 Partition 
Interprets CD-30 'A’ as 
USASCII subset 'Q' 


IBM-provided conversio 
to hexidecimal. Cans 
also use Friden 7-6 
9-track Code Con 
Macro. 


‘Q' 
‘A! 

Unconverted CD-30 truncated Q 
code for fast walk-through. | 
Handled by SCA as 7-bit 
USASCII but cannot be con- ‘Q' 
verted meaningfully by BTAM, 
which uses standard USASCII a 
as a base. (OC) 


cad 


ed to convert 
USASCII subset 


ee ee cree 


(USASCII subset) (Hexidecimal) 
CD-30 SYSTEM TEN IBM 360 
A Q 360 hardware converts EBCDIC 
- to hexidecimal C1 C1(A) 
A Q IBM - provided, converts USASCII 
: to hexidecimal Cl C1(A) 
A Q nverted subset: Q (tape) Friden - provided conversion of 
Q to hexidecimal C1 C1(A) 
A 360 BTAM converts Q to hexidecimal ° 
D8; User must provided for con- 
version of D8 to Cl C1(A) 
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MODULE VARIATIONS 


MODIFICATIONS FOR CODE CONVERSION OPTI 


ction 5 


16-Character MIS Prefix 


CD-30: Message received by CPU 
in truncated CD-30 code. 


Generated in Syster 


MDCS: Message received in System 
Ten USASCII subset. 


EM TEN OUTPUT RECORD FORMAT 


‘ic Manual 5008 explains the code conversion 
The amount of code conversion performed 


. rst six characters (may later be increased to ten in 
this module) of the terminal transmission (transaction code 
and “terminal ID number) are always converted to System Ten 
USASCII for use by the CPU. The balance of the terminal 
transaction can be stored on tape or disc as received but 
will be virtually meaningless unless converted either 
‘before ultimate output or in the host computer. | 


The SCA will accept unconverted, truncated CD-30 code as 
USASCII and the BTAM routine will process the transmission 
as USASCII. However, Since only the first twenty-two 
characters (16-character prefix, transaction code, and 
terminal ID) are in USASCII, the balance of the messace 
must be converted further to be meaningful. This is a user 
responsibility. 
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MODULE VARIATIONS 


- Conversion Macro will do this for tape. If unconverted CD 


CD-30 and MDCS (JIS terminals and Attendance terminals) 


records can be mixed on the same tape or disc. If the CD- 
30 transmissions are still in unconverted, truncated CD=-30 
code, the second character of the MIS prefix (C = CD-30, 
M = MDCS) must be tested to determine which record to 
process through. further code conversion in the host 
computer. ©The Friden-provided 7- or 9-+track IBM Code 


30 transactions are mixed ween JIS transactions and 
through the SCA, it is the user's responsibility to 
them out for further code conversion. 


se 


Four types of transaction tables can be: currently in 

the MIS configuration to verify inal : and/or 

transaction validity: by function : e ar ngle-entry, 

multiple-entry, and modulus remai : 7 facing 

example.) 

° Single-entry tables are u -terminals on the 
partition have the same 1 message lengths 


for the same codes. 
not have to be 


(and routing indicato 
Because the terminal Z 


ed when the terminals on 
n message length (and 
Because terminal numbers 


. hvereresentey tab 
the line differ 


| les can be of either the single- 
or multipl ntry type; they use the modulus-four 


of modulus remainder or message length usually 
row the customer has configured his systen. 


itially loaded into core with the rest of 
n program. They are defined in the DM 

first four positions are the terminal ID 
ceraiael ID is never checked in single-entry 
eae cae these four positions can be any number. 
» blanks in the single-entry table. The rest of 
6 entry consists of information in multiples of 
sitions, one group of four for each transaction 
ranged in ascending order by code number (see 
“examples). The left three positions of each group 
our contain the acceptable message length (or modulus 
fainder), the right position contains the routing 
dicator (O/blank = off-line, 1 = on-line). If routing 
indicators are not used (as they are not in this example 
program), this space must contain a blank, O, or 1, anyway. 
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MODULE VARIATIONS 


The detailed procedure for updating the table from the 
communications terminal is explained in Section 7, "How, to 
Update Transaction Table, TCTABL". 


Single-entry Table using Message Lenaths - 


TCTABL DM  0C36 ; 
DM —C36'bbbb or 


TCEOT Di 


TCTABL DM  0C36 
DM © C36'bbbbO02 00 


101 000 001 ' 
TCEOT DM C4tesee! 


Table using duis Remainders can be used) 


040 076 076 042 
076 076 076 042 
:076 076 076 042 
076 076 076 042 
068 076 076 042 
076 080 067 042 
058 076 076 042 
080 076 076 042 
035 058 076 042 
076 089 076 042 


shorter than 36 positions. If the length of an unused 


EXAMPLES OF TRANSACTION TABLE, 
TCTABL 
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PROGRAM LISTING & FLOW CHARTS 
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PROGRAM LISTING & FLOW CHARTS 


See a ee 


ENTER 
PARTITION 

CONVERT CD-30 HEADER TO 
SINGLE-FRAME OR DOUBLE- 
FRAME OUTPUT CODE 


CONVERT REST OF MESSAGE 
TO OUTPUT CODE 


FABLE UPDATES ES | UPDATE 
REQUIRED. TABLE 
? 4 


TERMINAL 
SERVICE ? 
REQUEST 


‘academia eee ees es aii “ta el 


aaa cars 


YES 


ACKNOWLEDGE TRA 
AND RELEASE TER 
FROM THE LINE. 


READ CD-30 
TRANSMISSION 


COMPUTE 
MESSAGE 
LENGTH 


“FILL ERROR 
BUFFERS 


CONVERT TRANSMISSION 
CODE AND TERMINAL ID 
FROM CD-30 CODE TO 

SYSTEM TEN CODE 


? 


RANSMISSION> 
ERROR 


MOVE ‘E' TO 
MESSAGE 
HEADER 


VERIFY TERMINAL ID (OPTION 
VERIFY MESSAGE LENGTH IN. 


EXIT TO WRITE 
CD-30 MESSAGE 
ON TAPE OR OIS 


3 - 
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PROGRAM LISTING & FLOW CHARTS 


ACKNOWLEDGEMENT 


CDACK 


SAVE ERROR 
NUMBER IN 
CDGO0D 


CDINK 


TRNCDE =8-? 
NO 


yes TRANSMISSION 


IN ? NO 


MOVE 
*3PAR3' TO 
CDERID 
(CDERSW) 


SW 
NO INHSW 
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PROGRAM LISTING & FLOW CHARTS 


COERPO 


SET SET 
INDEX 1 INDEX 1 
TO ‘0000’ TO '0032' 


SET 
INDEX 1 
TO '0064' 


FILL ERROR 
BUFFER. 
ADD '1' TO 


TRANSMISSION YES 
SERROR-FREE > COWT 
coGOOD = 0 
a’ Ft . 


NO 


MOVE ‘E' TO 
HEADER 
ADD '1* TO 
PERCNT. 


ERROR Processing Routine--CDERPO 
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PROGRAM LISTING & FLOW CHARTS 


LL TCSTRT 


MOVE TRANS. 
CODE (TRNCDE) 
TO X2 


MULTIPLY 
TRNCDE 


CDERID 


TCEXIT 


MODULUS REMAINDER 


{DIVIDE MESSAGE 
LENGTH BY 4 


FG cake ee aes eee ay 


YES 
ns BLANK OUT 
COTCNT 
1 
! 
Ls ! 
Les TCEXIT 
OVE ERROR 


CDERID 


MOVE 
CORRECT 


LENGTH 
TO CDTCNT 


( — TCEXIT 


\ 


‘ 
¢ 


| Terminal Transmission Check Routine - TCSTRT 
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PROGRAM LISTING & FLOW CHARTS 


(TEST FOR 
COMMAND OPTIONS) 


SET 
X2 = 0000 
x1 = 0000 

- CNTR = 0 


CHKT] 


ADD ‘1° TO 
| XT. MODIFY 
2 TO BRANCH 
TO 22 


ADD ‘1° TQ 
CNTR 


TEST FOR NUMERIC 
TERMINAL 1D 


IS FIRST 
ENTRY pela TsETI OPTION A ADD TRANSACTIONS 
BLANK ; : TO TASLE. z ‘ : 
nO | OPTION D DELETE ENTIRE TERMINAL 
| | TABLE ENTRY 


OPTION R REPLACE TERMINAL 
ID. IN TABLE 


ANSACT ION 
RTRY 


MOVE ENTRY 
TO TS3 
FORM 

NUMERIC 


OPTION. T 


" CHKFR2 


OPTION A 


s; 


OPTION D 


. MODIFY Z 
TO CHKFD2 


YES 


LOTBLI 


Table Update Routine - CDCHK 


This flow chart is for the CDCHK routine used 
with a multiple-entry table; see listing.) 
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PROGRAM LISTING & FLOW CHARTS 


OPTION A 
SET MULTIPLY 
CNTR = 0 TRNCDE BY | 
X2 = 0000 4. RESULTS | ~ 
X3 = 0000 |. 
Is EN 
_ SETI gE <Finst ENTRY ENTRYIN 
BLANK? TSHKA( 2) 
NO ip 


_— CHKFAI 7 
TSETI =k TRNCDE 


ADD ‘8° 
TO X3 


YES 


TAZK " CHKFAI 


a 6/28/71 


PROGRAM LISTING & FLOW CHARTS 


OPTION R OPTION T - 
CHKFR : CHKFT 


SET 
X3 = 0000 


CNTR = 0 


CHKFR2 =). 


ADD ‘2' 
TO X3 


MODIFY Z 
INSTRUCT 10 
TO CHKFR2" 


( toret 


OPTION R (Replace Terminal ID Number) 
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TAZK 


MULTIPLY 
TRNCDE BY 4 
ADD RESULT 
TO X2 


END 


MOVE 
TSWKA(,2) 
TO TABLE(,1) 


SUBTRACT 
"1' FROM 
CNTR 


ADD ‘'8' 
TO X3 
RESTORE X1 


CDCHK - TAZK 


OF TABLE 
¢ 


FIND TERM. ID " 
IN TABLE 


TERMINAL 
ID BLANK 
? 


MOVE NEW 
TERMINAL ADD '36° 
ID 10 TO XI 


TABLE( ,1) 


(Find Terminal ID in Table) 
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PROGRAM LISTING & FLOW CHARTS 


FIND TERM.’ ID 
IN TABLE 


LDTBLI 


TERMINAL 


ID's ? 
QUA 
NO 
YES “END 
_ ISET3 meme. OF TABLE 
| ? 
NO 


¥, 


ADD '0036 
TO X] | 


DIBL1 (Find Terminal ID in Table) 
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PROGRAM LISTING & FLOW CHARTS 


MOVE NEW 
TERMINAL 
ID T0 
TABLE 


CLEAR ENTIRE 
TERMINAL 
LINE IN 
TABLE 


SET 


X3 = 0000 
X2 = 0000 


MULTIPLY. 


SUBTRACT 
‘1' FROM 
CNTR 


SUBTRACT 
'y! 


FROM CNTR 


RESULT 
= ZERO 


RESULT 
= ZERO 
? 


ADD '10' 
TO X2 


LDTBL2 


RESULT LOTBL2 


= ZERO 
? 


NO 


ADD ‘2? 


TO X3 
RESTORE X1° 


TDEL 


CDCHK - DEL, TDEL, RDEL 
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CHKFDI * 


LDTBL1 


CLEAR 
BUFFER+2 
PARTITION NO. 


INPSW 0. NORMAL 
1. (RESERVED) 
. FORMAT ERROR 


RESET LAST 
POSITION | 
OF NUMERIC 
BUFFER 


CDEXIT * 


2 
3. TERMINAL ID ERROR/INVALID ENTRY 
4. UPDATE TO BE PERFORM 


* RETURN ADDRESS STORED BY 
BRANCH AND LINK INSTRUC: 


K - Miscellaneous Routines 
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PROGRAM LISTING & FLOW CHARTS 


The following listing 1S an example of the program with 
provisions for a mut ei neon Terminal han icoioe? to 
pea me So eee ioe entire: CD- 20 eraser set? 7 


Seay anes Variations in handling 
ID/transaction checking, code conversion, 
tape or disc are discussed in other sections. 
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PROGRAM LISTING & FLOW CHARTS 


EERE RENEE EAM MER ERE EEE MEERA EEE EEE ENAEEAERERYE ERAN AMEERMEMEBE 


e 


— ==" MULTIPLE*ENTRY COCHKs USING MESSAGE LENGTH ~* 


cee wn xnke nx 


TERMINAL TRANSACTION TABLE UPDATE ROUTINE 


7 . ! { ; : . 
eee KKK Re KK KK RK KK RR KKK KKK Ke HK * 


 ““ZeREPLACE TERMINAL ID NOe © MAX & & ENTRIES 777 


PRO3“9999"0701"8888=G70e/ . 
COMMAND OPTION -«# , ae Ne ae 


| 


PakTITION NOs *% 
EXISTING TERMINAL ID¥*¥*% Bee 
NEW TERMINAL TD 0 RRR RT = 


2eDELETE ENTIRE TERMINAL TABLE ENTRY 


PLV03"9999—"8848"97/77=6666/ 
COPMAND OPTION 4# 
=" BARTITION NOo (7 we TO a, 
TERMI RAL TO ObL ETE eee eee AEE KY HH 


| 


| 


 3eDELETE TRANSACTIUN TABLE ENTRY 


: PTO3"99998 Se7egua5a he 
en" COMMAND OPTIGN # °° 7 _ = a 
PARTITIGN NOe ax 
TERMINAL ID Vere) 
TRANSACTIONS TO DELETE 4 HH a Se yea we ea ee terme ere 


~~" eADD TRANSACTION CODES TO TABI 


PAQUZ@9999"B=8U12el1s/< 
ee CORMARD OPTION # 


PARTITION NOo #% 
TERMINAL ID 8: e 
roe =" “TRANSACTION CODE 7 a cee aaa 
New LENGTH 
RUUTING INDICATOR 
INPSW 
pecans ca x ESERVED) ee ae PC are ee 
MEANS FORNAT ERROR 
MEANS TERMINAL ID ERRKUR/INVALID ENTRY 
oe ee eee UPDATE TO BE PERFGRMED ~~ TUT sis 
BERBEERE BERR ERE BEBE RE RE ERE EAN EMER ERED ERY 


- me a? Ana mee EAN nt en Ne Se) Ql ae peared se eeremtamannioenrtenen: « 


mts a ee cm a te et erelnanmant tm cnatee® ne ei 
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ZErtuyss, KY] 
ZEnLS( Ls CNTR 
A( isl) sBUFFERS] 
ChKT(2) 

A OWesX14+301) 
ALCH GisZ+1 

C Ali1s1)eASTER 

BC TheET1¢(2) 

A UN&ESCNTR 

BC Ai(5) 


Al C 


HKT C 
BC 
mC 
FN 
Gia eee: See 8 C 
Z BC 
2Z C OMe sChTrR 
a _ BC ChKFA( 2) 
C Tr Us, CNTR 
BC ChKFT(e2) 
on" CC  TRREESCNTR 
BC CHKFEF R(e) 


HUFFER+5(192),8LNKS. 
TSETI(2) 
BUFFER+5(4,2)9TS3 
TS3(DUsTS4(5) 
TS3C4)0TSH 
ChKF Ole) a TSETLII5) 


"DELETE ERTIRE TERMINAL TABI 
CHKFO ZERUS( 1) 2 CNTR 
replat epee aa ee 
ChKED1+1(6)s3TORA 
A FIVEsX242(2) 
BUFFER+5 (142) 4BE 
LOPBLA(2) 
AUCH Z41 
CHKTIS) 77 


emma = 


ChKF Le 


MAN 
~~ BC 


ORG #95 
DM A'CKKFD2! 


C55XKO° 
SCL) sCNTR 
ER+#10(1,2) sBLNKS 
TSET1(2) 

MC SUFFER4+10(492)2TS3 
NM 1S3(5)4TS4(5) 


» 
» 
% TEST TERNINAL ID TO BE NUMERIC 
C 


EnTRY IN TAMLE 


ao an Seana AN eee ee A Apne ens Se Hees 


IF YES», 


<n memee a  e ae Aeee e 


CLEAR INtek 1 

SET CUuuNTeEnK TO ZERU 
IS TRIS A VALID FUNCT LUN 
IF YESs GUTO CrHKT 

ADO '1' Ju INDEX 1 
MODIFY INSTRUCTION Z 10 BRANCH TO 

IS THIS Tre LAST UPTION UU ss 
IF YeSs GUIO ERROR RUUTINGE 

IF NUs ALY 1 TO CULUNTeR 
AND LOUP sACK JOU Al s 


IS NEX] TERMINA 
IF YES» GUIO E 
IF NUy MOVE = 


CTION LENGTH IN 


UNTER 10 ZERO 
1 Oe | alee 
LINK TU STORAR 
ADD 5 10 INDEX 2 
* TRANSACTION CODE BLANK? — 
fES» GUTO FIND TERMINAL ID 
Tx mMUDIFY INSTRUCTION Z TO CH 
OGP BACK TQ CHKT 


“83 


BLANK UUT ENTIRE TERMINAL TABLE EN 
SUBTRACT 1 FRUM CUUNTER arr intin 
IF ZERUs, GOTO NORMAL EXIT ROUTINE 
IF POSITI Ves ADD 59 TO INDEX 2 


~ BRANCH anD SEARCH FOR TERMINAL JD 


SET INVEX 2 T0 0 

SET CUUNTER TO O 

IS NEXT ENTRY BLANK? 

G&TG ERROR ROUTINE 
IF NOs MOVE ENTRY TO TS3 
FORM NUMERIC : 


we ees + weet orem a 
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wo SB 4D TS4 
) BC ¥4160(2)sTSET1(5) 
Mi ALCL Re] 
a a BC CHEF OL +1 (6)sSTORAR (5) 
A TEitygX242(2) 
C SUFFER +5 $482) 5 8LNKS 


meee ees BE LOTELIIAL. ae 


MN AUCHINGs Z+1 > 
BC CHKT1(5) 


ORG eh 
AUCHNG DM A'CHKFR2! 
SE ngs iene heer er ee hs ee tte 
*% 
* ~ REPLACE TERMJiWAL ID 
*% 


S ONEsCNTR 


RCEL MC BUFFER+10( 452), TCTABL( 1) MOVE ENTRY TO TABLE 


“IS BENIRY NWUMERIC? 

IF NUs GOIU ERKUR RKUUITNE 
MOPLFY INSTRUCTION R Tu BRANCH TQ 
BRANCH AnD LINK JU STORAR 
ADD 1 TO LNUEX 2. 

IS NeExT ENTRY BLANK? 

IF YESs GUIO FIND TERMINAL IO 
IF NU, MUVIFY INSIKe Z TO CHKERe 
BRANCH TO TEST FOR NUMERIC ENTRY 


actenenneninanatte cA arr tt na pagan 


SUBTRACT 1 FROM CUUNTER 
IF ZERG, GUTO NORMAL EXT) 


BRANCH TO FIND ANUTHER 


see ee nt ete ee 


OPTION T 


SET abides 3 


a TRANSACTION CODE? 

PERNINAL TO UT TU 

TEST NEXT TRAN CDE 
e 


ee te ee. Ee, eLOLaTSETZOOI 
A TE, X2 
BC LUTHLeE(5) 
—- +g ea femics Gace 
. ORG aed 
ADCii1 Dm AfRLEL! 
» 
* DELETE TRANSACTIUN TABLE ENTRY © 
*% 
Sn ae TEST TRANSACTION CODE (18) 
% , 
CHKFT MC ZEROS» X3 
ea ee TS ME ZEROS CL Ig CNTR COO 
CHKFI11 C BUFFERFIO(is 3) aNINE 
BC ¥*¥410(1)e TSETI(9) 
iygye ee terre BUFFER+10( 143) s0NE 
BC TSET1(1) 
MN ADC1iOsR+i 
TK BE CHKEOLEL (CG) 2 STORARIS) 
A TWsX3+212) 
C BUFFER+10(193) 2BLNKS 
on BE LOTRLI (2). CHKFT1(5) 
: * 
3 * 
i lta ort eae EE ne ree ole cess 
* DELETE TRANSACTION IN TAB 
a 


————"TDEL™ MC ZERGSsxX3 
MC ZERCGSsX2 
é TOEL1 MC FOURKsX2+2 

permuange "Ge BUFFER+1O( 1s. 
A K242(2)0 X14 
HC BLNKS(4) 57 
OKEs CNTR 
¥410(3) 


en ANN tes haere NO Ne oy ih wine + Ss 


cme a nnn ee citi ee Rn aN 


X¥ 3 70 0 7 7 
rX 2 TO O 

c Ex 2 TO '0u0408 
JLTIPY TRANSACTIUN COCE™ BY74> 7 
AOD INLEX 2 TO INDEX j 

CLEAR APPRKUPRIATE LENGTH ENTRY 

’ SUBTRACT 1 FROM CUUNTER 77 O77 
LF ZERO, GU TO NORMAL OuT ROUTINE 

IF PUSITIVeEs ADD 2 10 JNUEX 3 
RESTURE CONTENTS UF INDEX 1°00 
LOOP BACK TO DELETE NEXT TRAN COE . 


ine. Sant ane Cnn nna Onn aCe 1 oe eanIO TUT Ecc Dnt Geen ne octets oc aN nn en ne camenbaneantiammemnaniamaneat 
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HKE A 


~  ChKF al 


fp EIGHTsX342(2) 

BC TAZK(2)5CHKFAL(5) 
“FIND TERINAL ID IN 
+ HWe ZEROSa MeO == 


““BC TAN3S(2) 


AML ThAWSe LENGTH TO TABLE © OFTlUn A , ore 


TEST TRANSACTION CGDE (18) 


MC ZEKGOS(LISCNTR SET CuuUNTerk TO ZERKU 

MC ZEKkU5s X2 "SET InvExX ¢ TO ZERU 

MC ZERGSsX3 oe “SET Ilnbex 3 TO ZERGO 

C BUFFER+10(1939) sKLNKS IS TRANSACTION CODE ENTRY BLANK? 
BC TSETI¢2) IF YeSs GUTU EKROK ROUTINE 

C BUFFER+10( 13) sNINE IF NUs IS 1TRANSACILUN GCuve=99 

BC *+10(1),TSETI(I5) IF YES», GUTU ERROR RE - 


GC BUFFER+10(153)20NE IF NU» IS TRAN CLE L 
BC TSET1I(1) IF YESs GuTO ERROR RK 
MC BUFF ER+10(153)2TS3 IF NUs MUVE TRAN 
C BUFF eER+12(123)sBLNKS IS ASSUCIATED & 
BC TSET1(2) IF YES» GUTO } 
MC BUFFER+12(393)9TS341 NUs MOVE 
C AlLFEER4I16(153)sTKO ’ 
BC ¥410(1)/TSET1(5) 
Fre TS3(9)2TS4(5) 
C TS3(4)eTS4 
BC *4+16(2)seTSETI(5) 
MC BUFFER+16(1s 3) 2TS3t4 
MC FLUR,X2+2 
M BUFFER410(133)»X2+2(1) 
MC IS34¢1 (4) sTSHKA( 2) 
BC ChkkU141(6)sSTOKAR(D) 
C BUFFER410( 153)» BLNKS 
| “FIND TERMINAL ID 

LOOP BACK TO TEST WEXT TRAN CGE 


‘NDEX 1 TO O 

= NUEX 2 TO QO” 

MC ZERUSs X93 3 ET INDEx 3 TO 0 

CC RUFFERF5 (4 f : RE TeERMIWAL IDeS EWUAL? 

. F YESs GOTO TADS UOT 
IF NUs IS THIS THE END OF TABLE? 

IF YESs GUTUG TAD 

“IF NO» ADV 36 TO INDEX YT 
LOOP BACK AND CONTINUE SEARCH 


NC ZERGS,X1 


C TCTABL I: 
BC TAL(e 
A 

BC 


se ee meen nee at nn ee RG SR SNS airs NRTA 


“SET TNOEX 2 TQ 
IS FeRNINAL ITD BLANK? 
IF NOs, GO TEST FOR END OF TABLE 


BRANCH TO ADD ASSULLATED IRAN COE 
IS THIS THe END OF THE TABLE? 

“IF YESs GU SIGNAL TEKMINAL ITD Ze RE 
TCCNS1 +X} IF NUs ADD 36 TO INDEX ] 
‘Tava(s) LOOP BACK ANO CONS NEE SEARCH 


y NEW TRANSACTIUN CODE LENGTH AND RUUTING INDICATOR 


wm ee a ee ae ee ER Hee ne oo cat ee eee 


IF YES, mUVE New TERMINAL ID TG TA 
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JADF | MC FURY XP +? SET Iwhex e TO 'OU040F 


M nlFFER+1O( 1,3) 9X2+2(1) NULTIiPLY IRAN Cok bY 4 
A X24? (2)9X1(4) ADD INDEX @ TO INDEX 1 
mmm = ME TS an 402) a TCTABL( 01) MOVE LENGIhs ROUTIRG INDICATOR to 
S tubes CNTR SUBFRACT 1 FROM CUUNTER 
BC *410(3),TSET2(2) IF ZeXus GUTO NORMAL EXIT RUUTINE 
en A ELGHT A XY TF POSITIVEs ADO & [0 INDEX QO 
S K2+4P(2)9X1(4) RESTURE [INDEX 1 
BC TAD3(5) LOOP BACK AND CONTINUE 
wo go Ge Rei eRe CNG Bea, 8h a he ee ae) 
ae 
4% KEEP CUUNT OF CONSECUTIVE ENTRIES IN MESSAGE 
Fs 
STORAK A UNESCNTR ADD 1 TO CUUNTER 
. C CNTRSEIGHT IS COUNTER =89? . 
oo" CHKF OL BC CHKFDI(4)sLDTBL1(5) TF NOsRETURN UU 
* IF ¥ESs GUTU FIND TERMINAL ID 
+e . 
RE See eteey Reet One Aiea ¢ Bee lia. eg RNG Le Nah dar te ee ee 
* FIMO TERMINAL IU IN TABLE 
* 


~"“LOTBLA MC ZEROSs x1 SET INVEX 1 TO 0 


NMC ZEKUSs X2 SET INDEX 2 TO O 
LOTBL2 C. BUFFER+5( 4e2)aTCTABL (51) ARE TERMINAL ID)eS EWUA 
oR BC OCDEL (2) 2 ¥4+10(5) IF YESs GUTO MoDIr lev 
C TCTAGL (491), 1CE0T IF NUs IS THIS END & 
BC FSt132) IF YeSs, GuTd ERROR 
a= A TCCHSisXi ~ — ~ " ADD 36 TO INDEX 


BC LDTHL2(5) AND LOUP BACK TY 
; 4 
ee ee scoan 
x ERKUR ROUTIWE 
* # 
i“ TSETL MC ThO,INPSWOO OOO SET InPSw 
6C TOUT(5). BRANCH Té 


*¥ : Z : 
ecamarecrs rage xieaceihe + te erettenaiee- Oo R G * ae 5 >" «ee eels cn near ier oma ss fir oem eb 2s namie ion ad) aca asin iy Sag Sale 2 ra a ee 
ADCNUG1 DOM A*7Z7! 
*% 
ee is ie ei Dag eatin \ehal ke, Go . ee ee Seer en Me ee 
* — NORMAL EXIT ROUTINE 
s , sd 
TT FTSETS MC ZEROsINPSWOUUUUT INAL NORMAC ©. 
BC TOuT(5) ROUTINE 
* 
Pa RG cee eo Mieteciinc sca saiee Ee Geel a 
A On OC4 
On cro NTILRE TERMINAL ENTRY 
apmeumeaniaem ae oats: 0c seems \NSACTION COVES “Ch TRaf 
. DM cre TRANSACTION CUDES CNika2 
DM CikK?t Ck TERMINAL 1b CNTRE3 
“——— ASTER DOM Ct¥tu co END OF POSSISLE OPTIONS 7 CUCU 
¥. . 
~ . 
* TERMIAAL ID ee ee peony eet ye ae 
*% 


SET INPSw 10 SIGNAL TERMINAL ERROR 
REMOVE SIGNAL FOR TABLE UPDATE 
RESET FORM NUMERIC FIELD 
RETURN ADDRESS 


maser ie ieee! we se eee se em se EN te alent tedaenen iret eet ettetinatimei tenteinnten ther mienehi, 


TSETZ MC THREES 
“~~ FOUT MC ZERO 


COEXIT BC CoExIT 


Ae ements 


6-18 
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Sec 


 *¥ 
¥ 
TS3 


ae 


TEN 
TSeKaA 


— BLNKS DN C361 


CNTR 


ORG 


DM 


DM 
Dh 
OM 
Dti 


crot 


#e5 
NCICATE CuMmtaAno OPTN 


C'ooovu0o! 


croqgoooI = : pee, ete 
cio? 
SR RON Pete keV OR Ck EI RCT ONE NOD ee ERED TS EE CEO TENS CENT SSEE TERE che TARO 
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TITLE ‘'HRASIC Cv#30 MODULE? a. oe 
CORMOr : 
Cre Di Cric? HEADER PREFIX N@AORMAL, C#CO30 
PCERPT OM cr 3 ERROR NUMBER aa og ft ode ak 
% CONC PUST BE FOLLOWED BY THE FOLLUW SYSTEM CONSTANTS 
+ PCEXRPT UM Ct # : 
ea mr PRCONG DM ¢€5'GQ000! ee ee Ne ee, ee 
* SCTIME UM NBR 
e OM Cet : 
"BLANK OM C7! ! ee Re Boe Tee eo nag aay ak oe ate phe eget “oa fit 
* 
a. CONSTANTS 
Te TO CALL CODE CONVERT ee 


» 
SIZE1 bm N'006! x *x CUNVERT (CD#30 TU BUP) 
——= TADDRI OM ~~ ASCDIN' 9 7 7 8 lt ae 6oTHE FIRST 6 CHARS OF 
TAODR1 DM A'TBLI! ** USING TBL1 
* ; | ha 
“——"" ST ZE2 DM NVQ ZOE en na CONVERT (BURP TO OL 
IAGDRe DM A'CDHEAD! | #* Tk 16 CHARS U 
* #* AND THE FIRST 6 
—~" TADDRe OM ATTBLAP TT 4¥ LlNWPUT USING 
* #% 
IAQDIKS OM A'CD6!I ¥% CONVERT (C 
mr nee eens nen ay THE REMAINS 
TADDK3 DM A'TBLS!. ¥# USING : 
¥ 
ee 
% 
¥ 
* BEGINNING OF CD#30 PARTITION: 
Std ae . | 
* THE PURPUSE OF THIS MUDULE “IS TO ISSIONS; 
* PREFIX Trte TRANSMISSION WITH TIME : VING INF ORe| 
paras ee “CHECK THAT TRANSMISSION FOR ERRURS. AHO G LENGTH MESSAGE” 
* RESPOWL TO Cb*#30 TERMINAL; AND TU STORE MISSIONS IN 
” E®RUR TNTO AN ERROR BUFFER EO Bk PRINT 102. 
i ALL TRANSMISSIONS IN THIS L iG ARE | RTED TO OUTPUT 
+ COLE AND AkKE wRITTEN TO AN...O 
% td 
peace ele S - NGRHAL coe ae es 2 Seen, 


ORG 0G0Q0 
DH 7CS'S4heeeQ00! 
mn ORG OG00 TTC 
BC TATTLE(5) 

i ; ORG my 
OM TVATCDOSTRE 


tn Ae ant ante Le nneen: Aten enters inn tint ates reiasRAtReNn eit manent 


ORG OO11 


INDEX REGISTeR 1° ee 


INDEX REGISTER 2 
~ FIVE TIMES PARYTN NUMBER 


INDtX REGISTER 3 


CD PARTTN NUMBER 


wee re ee a ae aS i err 


- 
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% CURSTAMTS 
* 
FOURS bM4 ChOuudat 
Slaty4 Lit NIQUES! 
COs c™ N'O401! 
CUtp.« OM kK 'OQ0e! 
iP TCCN21 OM C#QO36! 
ThTye oO N'OO032! 
% 
ee ae SWITCHS AND STORAGE 
*% 
COTCvT OM Cc'oooo! 
* CO*wxcn OM N1O499! 
COERSw DM oci 
—  CbDERID UM C'O ' 
“ "  ERRIUG DM CiGt me to re 
ORG ej 
Cbutud’ OM N'Q! 
——"" TRACUE DM CHO! Paget oe lee 
OM C1 
TCTIv OM CtOGOGE! 
ent 2 AVA eS ae eee & 
* 
: ¥ INPUT/OUTPUT AREA 
* 
CONSuL DM C4 
COHE aL OM C16 
~ 7" CON DM OC2C0 
OM C6 
Cd6 OM C194 
* 
* 
* 
: ——~" CDPAR1 OM CtiPaARi' 
COPARe DM CtePakRe?t 
CUPAR3 DOM CI3PAR3! 
% 
* 
ag 
COSTR C CDPNOs 
- BC COCEX 
may ee as 
ae 
' 
eres * 
LANKs COIN 
» COIN(0),0200(5) 
(Of:2 )s¥+3001) 
2CDERIVU 
a \ 
COPARI,CNERID 
ONE s PRCONCG 
¥410(4),4420(5) 
i 


ZEROS(5) sPERCNT 


: \ 
2 
# ra yt 
.¥ 
\ 4 
* 4 
po4 . 1. e 
E ; oe, 
- 
: 5 is % i. 
“A ny 
— le 
oa 7 
6-21 
7» 
oe Tt 
ae or 
ea 
ME, : : 
at 
3 


B REGISTER CONSTANT 
MINWUMUN MESSAGE LENGTH 


AREAS 


MESSAGE LENGTH EXPELTEL 
MAXIMUM JTWwRUT LENG 


LOCAL ERRUK SwITC 
ERRUR VESCRIPT 


SECOND ERRUR Swit 
TRANSACTIUN CODLs 


TERMINAL ID 


FAULT 
TRANSMISSION (ACK/INAK) 


ene caren nein ee me ste es a RR een 


came 8 a eee ene emer ene eeeeentertan ne “aaemten ame eee © 


DOES TABLE NEED UPLATE? . 
IF YESsGO TO TABLE UPDATE ROUTINE 


IS SYSTEM INHIBITEU? 
IF YeSsBRANCH A SWITCH PARTITION 
CO#30 SERVICE REQUEST ? 
IF NOsSwIICH PARTITION 
CLEAR 1ST 6 CHARS UF INPUT AREA 
READ CO#30 TRANSMISSION 


INDICATE ERROR 2 |= FAULT UN READ 


ia sie een = seem enemmmmannenen Sepa enema ete An wes cen ne eERNneefe tte 


INDICATE ERROR NOe 1 * PARITY ON R 
ADD 1 TO RECORD SERIAL £7 7 TT 
OVERFLOW? 

IF YESsSET ERROR CUUNT TO ZERO 


ooo 
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.6=22> 


Sera (BE CCae L(6lecel(a) 


* 
MC CONC (16) .CUHLCAD 
% : - 
- hO CORRsX2 * op 
A CU5Psx2 * : - 
HC CDExLhs,COMSOL * COMPUTE MESSAGE LENGTH 
mores eS UN 2) COMSGL pe TS oO ee eee 
BC *4+20(3)e*4+1015) IF RESULT IS NUT PUSLTLVE ee: 
MC CUiTIN+2(4)sCOMSGL SET CounsctL 10 "200! 
moors = CU COMSGLYCONIN . “ "  -«$S MESSaGk LENGTH .< 29°° 0" 
BC #410(1)2¥+2015) IF NU» SkKiP NEXT INSTRUCTIUN 
A TwU,COMSGL IF YESsADL 2 TO MESSAGE LEN 
9 
* 
mC SIZE1,CCSIZE SET LENGTH FOR COUe CUNV 
mom mm men MC TADDRI X14 ee SET REG1 TU INPUT ADDR 
MC IALGCR1eX2 . SET Ree2 TO OUTPUI Ab 
MN TALOR1,CCS8+1 4 SET AmAUDR TO TABLE 
momen BC CO441(6) CCL (5) ~ BRANCH & LINK TO Ch 
MC CLIt (6)s TRHCDE — SAVE TRNCDE AND Te 
*% , x 
mom 6 CRERSWsZERO) OU “ «¥S TRANSMISSION I 
BC *+20(3) IF YESs BRANCH. 
* CHECK MODULE 
Tome BC TCEXIT+H1(6),TCSTRT(S) = BRANCH AND 
# ; ‘ 
MC SIZE2,CCSIZE SET 
ea a F MC TARDR2sX1 "dode SET 
MC LAUOR2sxX2 SET 


MN TADDRO,CCH&H1 


* 
¥ 

Soe SE OpisSlg KE oe ee 

ue S SIxXsXi INUEX 1 


BC ¥*+#60(1) | 


= stm eater enna aetna teeny. aeemainnamaemeneme ne 7 anal me ate 


LH ARUUND NEXT CALL T 


TO REMAINING LENGTH UF 


MC X1+1(3)sCCSIZE 
ad 10 INPUT ADOR = CDIN+6 7 


acamget tat MC IACUR3sX1 
MC IAUUR3sx2 
TAVERGsCCKE41 


‘ADDK TO TABLE = TBL3 = 
& LINK TO COKE CONVERT 


RE ERROR 3 CAN OCCUR ~~” 7 
1S THIS A BADGE TRANSACTION? 

_. YF YESsBRANCH TO CULNH © 
==" TS TRANSMISSION IN ERROR? 


WRITE NAK 


eeemmcmeie ren waits meenpensete stamens 5” 


WRITE NAK AGAIN 


eee tie Sere i mai Mn sem mt 


WRITE ACK eee yee ee ee 


w” 


© WRITE ACK AGAIN 


eee mannan os 
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= nC CoPaX 3s CUER]OV . INDICATE trRURK 3 


¥ 
; ¥ 
= COyles C  Y[hiiSas ZERO IS SYSTEM INMIE@I Tel? 
: BC *+#10(2)sCOINH( 8) IF YES BKANCH ANU SWITCH 
| C COEKSwsZERU IS TRANSMISSION IN ERROR? 
ceo BC CDEFPO(3)»CDwT(5) © IF NOs BRANCH TO WRATE ROUTINE= ~ 
* IF YESsCUNTINUE | 
*s 
~ * 
% 
* 
ie * ERROR PROCESSING MODULE ~ 
* 
CCERPO C ECOUNTs THREE 


aie bC COFi1(1) 
MN ONE, INHSW 
MN UNE »ZERRSW 

ee ee OR SiWy ZERGQ Oe 
BC ¥*4+1C(2).¥"1018) 

Coel C &COUNTs ONE 

oe RC ¥#430(2)5 *¥+50(3) 
MC ZERGSsX1 
BC CDk2(5) 

ee NE. TAHTY 2a KS ee ey 
BC Cbt el) 
MC SIXTY4sX1i 


FILL “SECOND ERROR BUF 


TO FILL THIRD ERKOR BUFF 


* FILL ERROR BUFFER 

* 
—"—" CEQ” 7 MC COERIDCL (4 IVER 
MC CPPRUsER RAUF + 
MC SCnFE Gs ERR 


Ta Ee 2° We SCiLit+2tid 
MC SCL1+3(1) 51 HUNDREDS 
MC TCTIOs ce RRBUF#C2]( sk TERMINAL NUMBER 


eS eM Ree se RR 
NC CO™S.Ge 
nC 


TRANSACTION CODE O° eee 
Sl y14) MESSAGE LENGTH 

33(1) EXPECTED MESSAGE LENGTH 

ADD 1 TO ERRUR COUNTER 

HAS ERKOR 3 UCCURECL? - 

IF YESsRESTORE LOCAL ERRUR SWITCH 

| ) AND RETURN TU ERRUR PRUCESSING 

Serta 2 : "ROUTINE IF WECESSARY aa SERS ee 


ZERUSCDERSH CLEAR THE LOCAL ERROR SWIICH 
(OS¢3)2CDTONT > >: CLEAR NODULUS REMAINDER AREA 7 
UD, ZERU IS [TRANSMISSION IN ERRUR®- 


“COGOOL CONTAINS ERROR NUe 122248 OR Se 
CBWTC2) (CTT OT ONO GO TO WRITE ROUTINE ~~~ 
Es CURE AD MOVE E TO HEADER 

DUGOD » COHE ALD+2 MOVE ERROR NUe TO 3RD POSITION OF 


A ONEs PERCNT “AOD 2 TO ERROR RECURD™COUNT 


TAPE WRITE ROUTINE 


A SIXTN»CUMSGL 

MC COnsualsaxe 
BC wIExXIT+1(6)enTSTRIS) 
BC CUSTRIS5) 

OM A'CDHEAD! 
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TERMINAL TRANSACTION CHECK MODULE 


¥ 
¥ ! ; 
* THE PURPOSE GF THIS ROUTINE IS TO CHECK THE MESSAGE LENGTH 
Te OO COR ThE TRANSMISSION ACCORDING TO THE TRANSACTION CODE AND 
¥ A FREGCEFINED TAsbLe ‘ 7 
¥ “4 | 
T 


CETAY CTZER CS es ew rie @ He 
- MO ZERCSsX2 , SET INDEX 2 


eMC UTRNCDE (La Xe4Q 0 ag eee 
M FOUR,Ke+2(1) * CUMPUTE TABLE 
A Xe+2l2)s Xi 4)  -* 
“ET TCTABL Sep La SLANK OUTS POSITION IN: 
BC TCERR2(2) IF YESsSTGNAL 
oO CEOHSGL+1L (3), TCTABL(91)7™ DOES MESSA 
BC TCEXIT=10(2) IF YESsEx1 


TOME TCI BENS COERIO™ OT OL NOS STG HAL W LENGTH NSG 
MC TCTABL(3,1)sCOTCNT#1 = MOVE GU TO COICNT 
BC TCEXIT(S) : EXIT | 


Sener me ot Re een Ratna Meant tnRieaR ete tRNA <r Sn et ae ee RN MS =e art ese, Seem E te aie Sr tmeReNRS NN Re ene en eR, Smee 


+ 


ct cate mentee ele att rte Meee 9 terete memati Spe Rett int setae oom 


DE ERROR 
Tony oe ee 


¥ | | 
TCERRe MC TCITCs CDERID . 
Ee AC BL ARK( 4) 2,COTOCNT 
¥ . a | 
TCEXIT BC TCEXIT(S) 
ng ete eect Sot 
TCTABL OM O0C36 
DM €36!99999076 076 
~~ FCEOT” ON Clee tet 
TCITC DM CH4TRAN! 
TCIWLN OM CSL 1 
—“y "END OF ROUTINE? 


SACTLON TABLE 
16 076 042 ! 
RANSACTION CULE INVALID 
WRONG LENGTH MESSAGE 


emer = ee . a Herne net ee i nemee ne een Fei = Semen fe Cam Mee mtn 


treet <meta RmmrEeh ame! dee ame ein Yann tt mee mtn MAA rir me 5 ma mw oa noe - ae oe nen ee ent rhage ne ee a em mee we entnlas 


ft 
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PRR EERE RHEE EER EEM YE RHEE YER RER REE EKHAYA EKER HES ER PEHKE EERE REE REE RE AYRES 


“. 


GENERAL FUNCT TUNAL Ge SCRIPTION 


EACH Cue3u0 PARTITIUN CUNTAINS A TRANSACTLUN TABLE® 
THIS TABLE CUNTAING AN APPRUPRIATE MUUULUS FLUR 
RePalbEP FOR EACH TRANSACTION THAT IS VALID FOR THE ~~" 
TERMINALS CUNNECTED TO THE PARI IT IUNe THIS PARTICULAR 
TaBbLE ACCUMULATES UP TO EIGHT TRAWSACTIUNSs SEVEN UF 
MHI Ch ARE VALICe AT LOAD TIMéy EACH Cye3uU PARTITION ~~ 
TRANSACTIUN TABLE IS INITIALT 2c wlTH THE APRFRUPRIATE 
REMAINDERS FUR EACH VALID TRANSACTIONe 


a ee ee ee 


IN ADDITIONs THE MOLUULUS REMAI WORKS WHICH AR 
STORED IN THE TABLE MAY BE READILY DELETEDV A 
IS NECESSARY TO ALTER THE VALIU TRANSACTION 

TU EACH MASTER CD30 PARTITIUNe® Netw TRANS 
NEW RENALNDERS FUR EXISTING TRANSACTLUNS 

ci an oT" ANY TIheEe . 

7 ‘ 

PT PTT CETTE TE SVE LOV ECT TITIES CCITT TTT TCC CL ET Te TET: 


zee eK KK KR KK KE KREME HK KK 


* 


ORR EERE MEERA RRR RRMA RRMA ERE ER EERE EERE HY 


* % 
TO ME TROL — ° ; , as cra seared 
* * 
* TRANSACTION DELETION * 
* + 
* ALL UPERATIUNS ARE ACCONMPL * 
* KEYBUARUe fU DELETE A T ER AND ITS % 
ge ASSUCIATED ROUTING IND “UBTAIN A SERVICE REQUEST  ¥ 
x* GN TRE 7102 KEYBOARD & NTER DATA ACCUDRING TO THE ¥ 
* FOLLOWING FORMAT? 7 * 
Bet. gase : er =. Re ats 
* PTXX*X * 
* * 
Sse Dh St ee a ae a ee emit eet cent — 
* 2 vIGi!T PARTITIUN NUMBER IN * 
a al — ANGE U2 THRUUGH 19668, ~~ #¥° 
* * 
- ONE DIGIT TRANSACTIUN CUDE % 
ee Pe ee N THe. RANGE 1 THRUUGH Be . 
*% ¥ 
* R SPECIFY One *PT#® FUR EACH * 
aie. a ica O dé DELETED UR HE MAY SPECIFY GE * 
* OM TWO TU EIGHT SEPARATE TRANSACTIOUNSo * 
* i ENTRY IS SIGNALLED BY DEPRESSING * 
a py eo d “(UNTT SEPERATOR?) UN THE 71i02@0°° 07 CUT 
* CGRAM WILL THEN DeLET& THE APPROPRIATE TRANSACTION 4 
* reAND ROUTING INDICATOR FROM THE IABLEe * 
geet os a ; 7 oe ce erect ime 
% * 
* . FOLLOWING DEMONSTRATE VALIO TRANSACTIUN * 
* i, FORMATSS TS ee ge eee * 
* ‘ $ 
* PTO2@"4/ * 
* PTO2"1i/ aia iia a Ges 
* PT02°8/ * 
* * 


6/28/71 


6=06 


PROGRAM LISTING & FLOW CHARTS 


+ . a + 
¥ | PTO@"4"4"3/ . 
A pT GQ Dede Se De debe Be Tf Eg 
* _ es. = | | | * 
* A TRANSACTIUN CELETION (PT) MuST ALWAYS PRECEEDE A - * 
pO OER ANGACTION aADGITIGN (PA)»s UNLESS a TALLE ENTRY IS | ¥ 
* INITIALIZE TO BLANKS OR AN EINTRY 1S DELETED aAtvD A NEW * 
¥ VALUE IS NUT INMEOLATELY. ADVED» | * 
* * 
x TRANSACTION AUDITION ; 

*% 

SAP TER OBTAINING A SERVICE REQUEST ON THE. 7102) 

* GPERATGR MAY ACD TRANSACTION REMALIDERS AND A % 
re 


ROUTING INDICATORS BY ENTERING | THE FOLLOW IN 


¥ 

*% PAXKEKOXXXeX 

a 
i egg cr 
*% ‘ 

*% XxX Is A THO DIGIT 


ee ae, ore a Sep cigs epee THE RANGE Us 

* : 

¥ x IS 
re 

¥ 

* _ | XXX IS 

* 7 

* | | | | 

x -. F xX IS OUTING INDICATOR 


a 2 wetaninennimeaherapaaintadtte tts saan ten arte yO POC ICO ACN etAROOCA ROUND GRD hl ORTON ECR EECCA CCL CIT In NOR A oem Rent © ERAN FN 


+ 


BLANKs ZERUs OR 


| 
| 
i 
t 
| 
{ 
| 
| 
| 
J 
| 
| 
| 
{ 
| 
| 
| 
| 
| 


"PAu CODE FOR EACH 

GR HE MAY ENTER ONE "PA 
TRANSACTIONS AND THEIR 777 

BE’ TIME*® THE CUMPLETION UF 

PRESSING "CONTROL /# (UNIT 

HE PROGRAM WILL THEN ENTER THE * 

LACE IN THE TRANSACTION TABLEe ¥ 


THE OPERATOR MAY ENTE 
TRANSACTION HE WISH 
“TTT ———="—AMD GPECIFY FROM.T 
ASSOCIATED REM 
AN ENTRY 15 SI 
TO SEPARATOR ) ON 
ee DATA IN THE 


KEK KK KR KK KKK KR KK RK 


KKK KKK KX 


KK * 


Ree ERK EK EK 


* BOTH OF THE ~LOWING DEMONSTRATE VALID ADUITION FORMATS$+ 
as WiGee ace ah OG eee Ae eee ee, 
ee 02=4=900= / 
~ | PAQ2*2=001= / 
ae = “PAQC =8 8003 Of 
¥ *% 
| OR * 
= sr eae ns a foe nan a ny 
* 22-4000" =2=001" =8=003" / + 
* * 
.s ; eres se Sah rt St ase ON ak vk ASS 9 oe ar oo ora Ae Spsiaseis naples eles EA 
Hi ESENT TIME THE ROUTING INDICATOR HAS NO 
ae HUOWEVERy A BLANK ZERO, GR ONE MUST BE 
ae INTHE SPECIFIED POSITION EACH TIME A TRANSACTION 
+ VDE Is ADDED» 
igs 
ns <a an monensin catmare tin eohh= ee mare sate oF eenmeren anes mete mu ame a amen * a ene nn see tne mem tn enable eee, = rename 
ix i ' THAT THE ACTUAL VALUES OF THE TRANSACTION COVES 
ae _° OR BOTH "PAN AND "PT* MAY SBE ENTERED IN ANY NUMBERIC 
+ i 
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VRB ERE RAE REE RSE R EEK HERE REE ER EEK RHR ERR EAE RAE ER REE HERE He RH KR KK EY 


ae : . 
* ERROR ChECKING % 
+ - - 2 oa ¥ 
a : “BEFORE A TRANSACTION REMAINDER AND ROUTING INDICATOR IS ~# 
* ALDED TO UR LELETED FROM THE TAGLE A SERIeES UF GREEKS ¥ 
¥ ARE PERFGRMED ON THE DATA ENTERED*® TWG TYPES GF GR % 
me TN" MESSAGES ARE POSSIBLE? ney 
* | : | 
% WLM TABLE ERR (OR INVALIDSENIRY) : | ¥% 
Te FE ORMAT ERROR Oo ee ats ye awe ae ean ie 
% ae 3 eaten # 
¥ FOR PAN THESE MESSAGES MAY B ‘ * 
Ai Ad aaa a ae ee : i a 
¥ WLM TABLE ERR ij 
* % 
wg on 
* ¥ 
* Bh ¥ 
Se eg = es Pe ge eae ee ESIDING THERE® 70S 
¥ * 
¥ ee PARTITION NUMBER WAS ¥ 
Sg Oe eS aa =e N° THE RANGE 027198 0 # 
¥ NIAINED WON NUMERIC CHARACTERS % 
* WAS NOT PUNCHED ACCURDING TO THE ¥* 
Sc ee = BrEG ay Aee FORMATs 00 = 
+ ¥ 
* FOF ¥ 
enna ee eae eee eee . Bay iy wAecshente, enies eens wot wet ey ee ae 
* Le TRANSACTION COUEs THE NODULUS + 
* “REMAINDER, AWU/OR The RUUTING * 
SO oe as hh eg ee “INDICATOR COURTAINED hON=NUMERIC  ¥ 
5 CHAKACTERS ¥ 
* TRANSACTION CODE ENTERED WAS NOT IN THE* 
Se eg ey RANGE 1°85  ° ~ Tce = ee ear a, ee 
* A ROUTING INDICATOR ENTERED WAS NOT A ¥ 
¥ BLANKs ZERO OR ONE® * 
SR eae “THE DATA WAS NOT IiwPUTED™ “ACCORDING Oe 
ad THE REQUIRED "PA" FORMAT» ¥ 
¥ ¥ 
aoe ee ae een eee eae 
¥* 
* THESE MESSAGES ney ‘BE INTERPRETED AS FOLLOWS? * 
~ le ee ee ee eee ee ae eee 
WLM TABLE ERR ¥ 
7 ¥ 
eee "Le THE TWO DIGIT PARTITION NUNBER WAS Uy 
A) NOT'IN THE- RANGE U02"19¢ ¥ 
B) CONTAINED KON NUMERIC CHARACTERS *¥ 
ee meen CC) WAS NOT PUNCHED ACCORDING TO THE * 
SPECIFIED FORMAT«e * 
r . + 
<—“FORHAT ERROR. he ere ee — 
e ¥ 
“te A TRANSACTION CUDE ENTERED WAS NON@NUMERIC# 
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I Be TRANSACTIUN CyUk ENTERED WAS NGI Lh THES 7 
RANGE 13. | | “a 
} 7 Qe THE DATA WAS WOT LaPUTED ACCORD ING TO + 
OO a gs tS oe THe, REYUUTn¢eb #PJ 4 FORMAT « of 
| # 


» DETERNINE THE TyPeE OF OPERATION TO BE PERFORMED? TRANSACTIUN 


h. ADCITION OR ion han VELETION® 
f . : | ° 
COCHK CC” BUFFERO1(L),T OO -IS THIS A TRANSACTION DELETIUNe UU TOT 
| BC CHKFT(2) © | YF SOs BRANCH TO CHECK FURMNAT FOR 
C BUFFER+I°(1)9A IS THIS A TRANSACTION ADDITIOGNe 


BC OCKHKFA(2)9TSETI(5) IF. SOs BRANCH TO CHECK FURMAT 
* OTHERWISE MOVE A FTwO TO INPSH 
* 3 FORNAT ERROR TO I4VICATE INVA 
2 OPERATION ATTEMPTED] 7 
*% 
¥ 


ee ae CELETION 


% 
CHKFT MC 2ERGSs X14 ZERO INDEX REGISTER 

CHKFT2 C BUFFER+S5 (Lad )s NINE WAS THE TRANSACTION 
rr ~~" THAN NINEs © : eae 

BC ¥4+10(1),TSETI(5) CONTINUE IF IT 1s THER} MOVE A THO 

* | TO INPSW AND PR: D : ORe | 
TOOT BUFFER+5S (141)20NE WAS THE TRAWSAC SS THAN ONES 7 
| BC TSET1(1) CONTINUE IF DIAENET Se MOVE A TWO 

* : TO INPSW AND Y -ERRORe | 
: i aac oS TH WD ROUTING 0 
‘| INDICATOR SACTICGN SPECIFIED. 

BC. CHKFT94+1(6)/LOTBLAUS) 
seman’ Cama ore @ - o-u eo INCR BY THO0 (UU 
C BUFFER+5S(421)sBLK EC DDITIONAL ENTRIES ARE 1 

Pr 
BOT TSETC (2 V2 CHKFT (5) | IONEs MOVE A ONE TO INPSW 7) 
* . WHE OPERATIGN WAS VALID AND 

* DFIPLETED » OTHERWISEs BRANCH 

: Se a A 

.” 

a 

¥° "TRANSACTION ADDIT, 


x 
“x * 


ZERO INDEX REGISTER TWOe 

CHECK THE TRANSACTION CODE ENTERED To SE” 
If 17 18 LESS THAN NINES | 

CONTINUE IF IT ISs OfHERWISE MOVE A TWO 


A NR nA A me ne Na Sn ee near, 


- CHKFA «MC ZERCS»X 
CHK AZ” C7" BUFFE! 


8 BE FAG OLDS T 
CT rrr TQ INPSW AND PRINT FORMAT ERRGRe 
oe “CC BUFFER+S WAS THE TRANSACTION CODE ENTERED LESS 


ane THAN ONE* IF SGs CONTINUES 
eae ais OTHERWISE MOVE A TWO TU INPSW AND 
* PRINT FORMAT ERROR® | 

a, 1)sXS1 MOVE THE: TRANSACTION COVE TO A TEMPORARY 

oe ~ STORAGE AREAs 0 ar reread 

oe R47(1)s8LK CHECK THE BUFFER TO SEE ‘IF A REMAINDER 

BONG i _ WAS ENTERED® 

i. ae $e NOTES -FULL CHARACTER COUNTS WILL” ALSO BE. 

<7 | | | ACCEPTED) a ee es 

: ae -IF NOTHING WAS ENTEREDs MOVE A rw 10. a 
: pe -INPSH AND PRINT FORMAT ERRORe © ~~ ~ 
Pe a, BUFFER +7 (3). xS141. MOVE THE REMAINCER (OR CHARACTER count) 
: Ae se oe — : To THE NEXT AVATLABLE | LOCATION. IN THE 
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¥ | PEMBORARY STuxaAGe AREA® 
C BUFFER FLI( Ll)» TO IS THe ROUTING INVICAICOR LESS TAAN Tau? 
6C *4)0(1)e TGET1(5) IF SOs CONTInyE FROCESSI IP Ge GCTHERAILSE 
* . MOVE A Tao [Tu JTweSn APD PRINT FORMAT 
¥% Ek rORe ; 
Fli XS]9XKS2 Choe CK TO See JF THE TRAWSACTIUN 
BO | | . AMD THE REMAINDER ARE NUMERIC. 
C xS1(4)5xS2 ) | : 
BC ¥+1G(2)sTSETI(5) IF SQ» BRANCH TO Ge TO ADD. 


* A TKD TO JNPow AND PRINT FUKM 
MC OUFFER+11(1)sKS1+4 HOVE THE ROUTING INDICATUR TE 
ee ee STORAGE AREA | _ 
, BC CHKFAL+1(6)sL0TBL2(5) 
A EIGHT» x2+2(2) INCRENENT INDEX: 
mom © BUFFER+5(1s2)s8LK CHECK TO SEE IF 
+ ADDITIONAL ESS 


BC TSET2(2) IF NOT, MUVE { 
Cee ee THE OPERATION 
¥ COMPLETEDe™. 
MC BUFFER+5 (72¢ MsBUFFER+5 OTHER IH&E FIRST ENTRY I 
ee ee a re OE “NEXT Sct CF DATA 
BC CHKFA2(5) BRANCH ND CHECK THE FURMAT OF 


* 
* 
* TaARLE CELETIGN 
*% 
L 


DTBL1 NC ZEROSsX3 7777 
MC BUFFERHS5S(151)2X3 


INDEX’REGISTER THREES CC 
HE PRANSACTION CODE TO INDEX 


a THREE « 

To FOUR (TI X3+201 THe TRAKSACTION CODE BY FOUR 
we, RMINE THE POSITIONS IN THe TABLE 

* ELETEDe 


= ME BLK (4) s TCTABL (93) 
CHKFTS BC CHKFT3(5) | 
¥ : : 
== ORG ee 
TST2 OM COO! 
BLK DM Cc! 


a ae ~ Se oe Oe BORO eee ne ee we ee Se 

* TABLE A 

%. : 

“LDTBL2 MC 1S» Xs TTT ZERO INDEX REGISTER THREE® 2 
E Rk )sX3+2 MOVE THE TRANSACTION CUDE TO INDEX 

* - : REGISTER THREE > 


sX3¢2(1)V00 0° MULTIPLY THE [WDEX REGISTER BY FOUR TO ~ 
" DETERMINE WHERE LN THE TABLE THE DATA 

IS TO BE ADDED: 

CTABL(143)9BLK™ CHECK THOSE LOCATIONS IN THE TABLE” TO 


¥ MAKE SURE THEY ARE BLANKe 

o¥t1Cl2)sTSETS(5) IF SOs HOVE THE CONTENTS UF THE STORAGE 
a mT AREA TO THE TaABLée IF NOUTs MOVE A THREE © 
% TO INPSW AND PRINT WLM TABLE ERRORS 


MC XS1+1(04)2TCTABL(33) 
“BC CKHKFAL(S)" ~~" RETURN TO THE CHKFAL Ma INCINE ANDO 
CONTINUE PROCESSINGe 


SET INPSW TO INDICATE FORMAT ERROR eee eee 
TSET1 NC TwOsINPSW MOVE A TWO TO INPSw 


A Lisi eine, 3 aetaica yaa sae cp lece Sethe Qe ox et hseh anata, 2 Apia «des noen. mein eau ahann eae eee 
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AU te Ae em Gt nema materi meNe meant WR ena ete we ee retreatment e 


BC TGuT(5) | 
ORG ¥85 
T DM CiTyt 
ae a Pay: D M 7 C { Pe a eS ee 
TST1 Dm Ctoc! 


ne See ama geen sateen een ae 


ae SET INPSW TO [INDICATE TRANSACTION & 
¥ SUCCESSFULLY COMPLETED® 
FE 72 NE ZERGSINPSH MOVE ” Be oe ee see eo ae 
BC TOUT(S) 
ORG *=5 
XSL OM CHOCQOQOT ed ee ee Se 
¥ 
oe ae tl THE TABLE WITHOUT DELE 7 7TH FORMATION ALREADY THEREe ~~ 7 
& : ; 
_TSET3 MC THREEs INPSW iOVE THREE TO INPSWe 


“BC TOUT(S) ~ 
| ORG ¥*5 
XSe2 ~~ —pM Ctooogoot 

~ TOUT TMC ZERGS(2Y, 

MC ZERQsXS! 

_ eDEXIT BC (CUEXITE 


A 
j 


ZERO THE PARTITION NUMBER IN THE BUFFERe 


EXIT. FROM THE ROUTINE + 


mee en empire eet SAR NR Ot NER anette om eet “ARN te am i er ewe 


teenie Re eee eS ns tone eens eh 


Oa 
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LOADING AND OPERATING INSTRUCTIONS 


ORG ADDRESSES 


CM, located at 0000 in: 
data in Common below ad 
anywhere in Common 
of the HIS PEOgr aM 


; the CDCHK routine can go 
econflict with other phases 


ORG at 0000 in each cCD=-30 
in loading the program and has no 
. The distinctive text card 


The first DM 
partition is . 
bearing on the 

that results 
the CD=30 Par 
to TATTLE 


¢t deck. The instruction to branch 
ted at 0000 in partition also; if a 
an illegal instruction in this case) 

to 0000, the: program will branch to 
TATTLE is discussed in the Basic 


O must be at the addresses shown in the 
eee as noted in Section Vee the location of 


and CDPNO watt ae cay for each CD=-30 partition. 


LOAD] tHE PROGRAM 


A multiprogram loader should be used to load each CD=-30 
artition, Each deck of instructions to be placed ina 
particular partition should be preceded by a parameter 
card. Common and Partition 0O must be loaded last and 
coordinated with other phases of the program. 
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“HOW TO UPDATE TERMINAL TRANSACTION TABLE TCTABL 


. Bach. partition table is initialized with appropriate 


Format 


Errors 


"WLM TABLE ERR" 


; w 


information when the program is loaded. See Section 5, . 
"Modifications for Terminal ID and/or Transaction Validity 
Check": also see figures 7-1 and 7-2 in this section. All 
modifications to TCTABL are entered via the 7102 or Model 
70 keyboard. | 
1. Obtain a service request at  communicatio 

terminal. 3 | 


2. +kEnter appropriate format for update ion, 


each entry followed by the unit sepa 
3. Make correction if error message ig the 
communications terminal. 


of Entries : 


Entries may be made in series as g§ . a examples 
(Fig. 7-1 and Fig. 7-2) or indi’ ‘or instance, 
PT03-9999—8=-7—6=-5.,../ can be erec 3-99) PTQ3= 
9999-7/, PT03=-9999-6/, etc. st values of the 
transaction codes can be in an r within one 
format, but command options c .xed in one entry. 
Routing information is not us ime; a blank, 0, 
or 1 must be entered in thi 


An addition to the table.: eded by a deletion 
unless the required posi Ss. nk already. 


1. (PA option) new transaction 


e 
e 


26 


contained non-numeric characters other than 
option, 


nsaction code not in range 1-8, 
touting indicator not blank, 0, or 1. 


Data not in format required for that option. 
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ars 


2 


S$} PWUO 4 alae | uoLqoesueuy, Auqua-albuls [-2 ‘BL 


LZ/82/9 


- 


eee Ree RK KK RE RRA Ree & & 


i 


{ 


oe ee ee ee exaee xexxe kek eR Ke RK KK KK HK HK HR EK K 


% 


*s 


sage oe. 
: *% 
* 
er, 
TRANSACTLUN TABLEe * 
TATE MUDULUS FUUR * 
aie THAT IS VALID FOR THE 4” 
N INe THIS PARTICULAR % 
TRUE. ACCOR UDA AT FACTIONSs SEVEN UF * 
WHICH ARE VALIO+ AT LOAD TIMED “30 PARTITIUN * 
.- TRANSACTIUN TABLE IS INITE d : * 
REMAINDERS FUR EACH VAL: * 
* 
IN ADDITIONs, THE MULULUS * 
STURED IN THE TABLE MAY BE * 
3S NECESSARY TO ALTER THE VALIU TRANS ACTIGi cane 
TU EACH MASTER CO30 PARTITIUNe Netw » 
NEW REMALNDERS FUK EXISTING TRANSAC * 
AHY TIME. * 
FRERPEREBERERE MERE REE EEE ERA MEME REESE EE BEA RBRAKE 


EJECT 


et ee ee eee oe oe oe eee eT eT eT ele Se Serer ee SP eS eT 
. ie ME THOD v % ‘ i 4 as .. ee aero meee oy ~ sivas 
TRANSACTION DELETION 


ee ee a a re aps vee "att 


ALL UPFERATIUNS ARE ACCOMPLISHED VlA A 7102 TERMINAL 


XX IS A TWO VIGLT PARTITLUN eg acias IND 
THE RANGE V2 THRUUGH 19 : 


X IS A UNE DIGIT TRANSACTION CUDE 
_ IN THe RANGE 1 THRUUGH 86 
THE GPERATOR MAY EITHER SPECIFY UNE "PT" FUR EACH 


TRA“SACTION THAT IS TO BE DELETEU UR HE NAY SPECIFY ONE” 
ePT® FULLUWEU BY FROM TWO TU EIGHT SEPARATE TRANSACTIONSe 
THE COMPLETIUN OF AN ENTRY IS SIGNALLED BY DEPRESSING 
"CONTROL /* (UNIT SEPERATOR) UN THE 7102¢° 
THE PROGRAM WILL THEN DELETR THE APPROPRIATE TRANSACTIUN 
REP AINODER AND ROUTING INDICATOR FRKUM THE IABLE.s 


! 
\ 
j 


BOTH OF THE FOLLOWING DEMONSTRATE VALID ‘TRANS ACTIUN 
DELETION FURMATSS stg Weneaert sted 


PTO2=4/ 
PTO2"17 | 
PTO02"8/ 


tht eee oe eee SPOTS TESTE SECC TES Ee LeLe cereale rete +s 


KEY BUARD. FO DELETE A TRANSACTION REMAINLER AND ITS 
~~ ~ASSOCTATED ROUTING INDICATORs GBTAIN A SERVICE REQUEST ~*~ 
ON TRE 7ive KEYBOARD AND ENTER DATA ACCUDRING TU THE 
FOLLOWING FURMAT? 
PTXX#xX 
oe! gare ies WHERE : 2 : tere AS ea ee 


eR RE ee ik ee eee neo 


eK EK KK KKK KK KK KKK KE 


H 


| 


ERR KK KER KERR 


i 


OR- 
PTO2"4"198/ 
A TRANSACTIUN CELETION (PT) MUST ALWAYS PRELEEDE A 
“TRANSACTION ADDITION (PA)s UNLESS a TABLE ENIRY 185 > _ 


INITIALIZED TO BLANKS OR AN ENTRY IS DELETED AND A NEW 
VALUE ITS NOT IMMEDIATELY ADUEDe. 


TRANSACTION AVOITION 


! 
| 
i 


AFTER OBTAINING A SERVICE REQUEST ON THE 71029 Trt 
GPERATCR MAY ALD TRANSACTION REMAINDERS ANU ASSOCJUATEO 
ROUTING INDICATORS BY ENTERING Tht FOLLOWING DATA; 


eR KKK RH KKK 


PAXX@X*@XKX eX 


~ “WHERE 


A TWU YDIGLI PARTIINION NUMBER IN 
THE RANGE U2 THRUULGH 196 


XX IS 


X IS A ONE VIGIT TRANSACTION NUMBER 
IN THE RaAaNuE 1 THRUUON Be 

A THREte DIulT MOUULUS RKENAINLER 
IN THE Rawok YOU IRRUUGH UUSe 


XXX IS 


A ONE DIGLI 
WHICH MAy BE A BLAIKs 
ONE « 


x IS RUUTING INUICATUR 


ZERUs, OR 


A SEPAKATE "PAw COLE FOR EACH 
0..ENTERs ON HE MAY ENTER UNE 
IGHT TRANSACTIONS AND THEIR 
NEE THE CUrmrPLETLON UF 
ona, 


“PAR 


Nate * 


PAOZ*2=00 


} 


PAQC@4e000= =29001" = 


| 


AT THE PRESENT TIME THE ROUIING INUVICATOI 
FUNCTIONe HUWEVERs, A BLANK ZERO, UR ONE “Ff 
ENTERED IN THE SPECIFIED POSITION EACH TIME 


_TRANS ACTION 
KEMAINUER IS ADDEDe e 


NOTE THAT THE ACTUAL VALUES OF THe TRANSACTION CUvES 
FOR BUTH *"PAwn AND #PT«® MAY BE ENTERED IN ANY NUMERIC 


eee RRR Saree ae 


i a a ef Kee KR RK xe eK KK KEK EK 


CNW OMTAVOT 


SHE EVOTTO 


y 
ar) 


OT LONUGS h 


a4 
® 


of 


L 


} 


Ke KR KK KK! 


| 


x Kx « 


| 


: | | | 
KHK KKK KKK KKK KK KK KKK KKK & 


- 


i 


t 
x * 4 * 


——"7PeREFLACE TERMINAL ID NOe = MAX = 8 ENTRIES” 


COMMAND OPTION —— , . 


“—"~ 3sDELETE TRANSACTION TABLE ENTRY® 


=== CORMAND OPT TON 


OADING AND OPERATING INSTRUCTIONS 


OTIS CLEC I TC SS CCC CTC CCT SS STC CCC OS ESC LSS SST ee eee eee ee LT eee eT 


MULTIPLE *ENTRY COCHKs, USING HESSAGE LENGTH 0 0 


JeRM OAL TRANSACTION TABLE UPDATE ROUTINE 


2 9999°0701-8888~6 O70a/_ 
PARTITION NOs 4% —s 

EXISTIts TERMINAL 1D¥¥4# HHH 

NER TERMINAL ID 77” RR arses 


*DELETE ENTIRE TERMINAL TABLE ENTRY — 7 


rete eet co attain tang cmi eavee se % wtnins mt ame ste ems oi 


| 


sesaceesoede seme 
COMMAND OGPTIGN  ¥* . 
“PARTITION NO eo UR 

TERMIWAL TO DELETE 4¥¥* 44% e HHH 


we 


PTO3= Bae oe 


ey NOe ¥% 
TERMINAL ID HR HH 
~~ TRANSACTIONS TO DELETE mc %.¥ a aie aca ea cea 


+ enemas ne AOR erm Ne eR NN I Ge eNO a Nee ee i a S  am NE  N  m me ge) trt 


"he ADD” TRANSACTION CODE 


~~ COMMAND OPTION - Pace Pg ee eee oe NBR ame Oe ee, 
PARTITION NOe « 
TERMINAL ID 


NEW LENGTH 
ROUTING 


MESSAGE STATUS SWITCH 
| | #0 MEANS NORMAL 
———— tener mata ee tm - SS aire Fa 1 { R E S E R V E ) ) en ce ce ere ee as ate eee eee eee een ane ne natn emt a tee on 
x z2@ AEAKS FORMAT ERROR 
=3 MEANS TERMINAL ID ERRUR/ INVALID ENTRY 
‘64, POATE 10-BE PERPURREO oo 
EECA HOCOUUO OUR TOG UAE OEE EEE EF 


INPSW 


a 
7-2  Multiple-entry Transaction Table Formats 
ite — | | 6/28/71 
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Section 8 


LABELS 


The following labels 
program. An asterisk i it the user must supply 
his own definition fq} ‘The items do not have to 
be in this order in program unless so indicated. 


NUMERIC CONSTANTS 


Label EXPLANATION 
N'0002' Minimum message length. 
N'0199' Maximum input length minus 1. 
N'0032' Used to set index register 1 


to fill second error buffer. 


i a | 6/28/71 


LABELS 


ALPHABETIC CONSTANTS 


Label 


SIXTY4 


TCCNS1 


SIZE1 
SIZE2 


*CDPNO 


*CD5P 


CDBR 


*TCTABL 


| TCEOT 


DM 


n‘oo64' 


N'0036' 


N‘006' 
N'022' 


C2 


C4 


N'0O101' 


0C36/0C360 


EXPLANATION 


Used to set index register 1 
to fill third error buffer. 


Used to increment index re- 
gister 1 in Table Update 
routine. : 1 


Used to call Code Conversi 
Module. : 


CD-30 Partitio: 


5 times parti 
us5d in com 


nd of TCTABL. TCTABL and 
‘lose up TCEOT must follow 
this sequence in the DM 
statements. 


Command Option List--used in 


Table Update. 
Delete entire terminal entry. 
Add transaction codes (CNTR=1). 


Delete transaction codes 
(CNTR=2). 


Replace terminal ID (CNTR=3). 


End of possible options. A 


through ASTER must be in. this 


~ order in the DM statements. 
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LABELS 


Label 


ADC10 


ADCH9 


ADCHNG 


ADCNG1 


CM 


IADDR1 
IADDR2 
IADDR3 


CDNC 


TCIWLM 


DM EXPLANATION 

AT DEG 

A'CHKFD2' 

A'CHKFR2! a 
A'Zz' a 

oc4 St four positions of 


Modified by X2,CM is 


of. eh B-register for 
mputing CD-30 message length 
CDRD. 


Used as address constants in 
Code Conversion routine. See 
Code Convert Logic Manual 
5008. 


Header prefix: N (Normal), C 
(CD-30). | 


Error No. 1-~parity error on 
Read. | 


Error No. 2-~fault on Read. 
Error No. 3-~unable to trans- 
mit ACK or NAK to CD=-30 ter=- 
Minal. 


Transaction code invalid. 


C'SWLM' Indicates wrong length mess- 
age. 


The preceding five constants are moved into 
CDERID (error description field), the first 
position of which is also CDERSW (local error 
Switch). 
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LABELS 


Label DM EXPLANATION 
INPSW © Noe > | Input meSsage status switch 


set in Table Update routine. 
Updaze routine. 0=Normal, 1= 
(Reserved), 2=Format Error, 
3=Terminal ID Error/Invalid 
Entry, 4=Update to be Per- 
formed. | ? 


CDE RSW —60CT Local error switch,..the firs 
CDERID C'Obbbb" 
CDGOOD N'O! 
CNTR cto! 
-ECOUNT N'O! 
ERRSW NN‘! 
-INHSW N'2! 
- PERCNT c'oocdo! or record counter. 


PRCDNO ecord serial number. 


STORAGE AREAS 
*BUFFER Input area for update message 

from 7102. This length | 

depends on the system used. 


Used primarily for testing for 
numeric entries in the Table 
Update routine. 


c'00 
—c'00000' 


TS3 
TS4 


‘Holds length and routing in- 
dicators in Table Update 
routine before these are moved 
to TCTABL. 


MIS header prefix. Filled 
with data stored in Common 
Starting with CDNC. 
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LABELS 


Label DM EXPLANATION 
CDIN 0C200 CDIN through CD6--output 
C6 area for CD-30 transmis 
CD6 C194 for Single-frame outpu 
ERRBUF 0C100 
WTBUF A'CDHEAD' 
co. written to tape 
“frame code; used by 
see 
B £57 address con- 
:(o use for double-~frame 
‘and for output to disc. 
VARIABLES 
SCHRS N2 art of clock time. Used in 


header prefix for transaction 
recording on tape and error 
messages to the 7102. See 
Clock Module Logic Manual 
5006. 


CDMSGL CD-30 message length. 


CDTCNT CD-30 message length expected. 
| Length is moved from TCTABL to 
CDTCNT in TCSTRT subroutine. 


Transaction code, 


c'ooo0' Terminal ID. TRNCDE through 
TCTID are the first six char- 
acters of the CD-30 transmis- 


sion. 
c'0000' Index registers used to modify 
c'o000' instruction address. 
c'o000! 
CCSIZE N3 Length of input field--used 


in code conversion and set by 
SIZE1 and SIZE2. See Code 
Convert Logic Manual 5008. 
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Section 9 


ROUTINE LOGIC--COMMON 


TABLE UPDATE ROUTINE 


discussed in Section 5, 
"Modifications for , and/or Transaction Validity 
Check". The explanations | are based on a multiple- 
fe lengths rather than modulus 
remainders, i 
remainders sta 


not require t ; rogram test terminal ID numbers. 


The message = 
deleted when” 
transactions 


ijally stored in TCTABL may be 
S necessary to- alter the valid 
to a CD-30 partition. New 
message lengths for existing 


tions are entered from the 7102 or Model 70 
§.terminals after obtaining a service request; 
umber of transactions entered at one time is 
; ormat shown in the program listing may be used 
“each transaction may be entered separately, each 
by the unit separator /. The routing indicator in 
entries has no significance at this time, but a 

or 1 must be entered in the specified position. 
ctual values of the transaction codes can be entered 


Before the table is updated, the 7102 message is checked 
for possible errors and the result is Brace? in the message 


status switch, INPSW, where 


0 = Normal 3 = Terminal ID Error 
1 = Reserved for future Use or Invalid Entry 
2 = Format Error _ 4 = Update to be Performed 


The contents of this switch are used by the Control Module 
to write appropriate update message status at the 7102. 


6/28/71 


_ ROUTINE LOGIC--COMMON 


¥% 


———"¥-——" TEST FOR” POSSIBLE COMMAND ‘OPTIONS ~ sia 
3 
—  COCHK KC ZERGSsxXe@ , 
Ean nts eee ae i mn ee MC oj E RG S ; 1 a aeils Ls pemeeneteats. wae! ae _ spencers ae ae — one _ 
| | MC ZERUSEL)A CATR JL 
Ai. C Alisi)sBUFFER+1 


ie ae Eerie ee 
| A ONEs X1+3(1) | 
Mts ADC? GLeZ+1 } UCTION 2 1G BRAWCH TO 
we ALL LD ASTER Oo ) he Cast OPTION OOo ee 
BC TSET1(2) . IF % GOTO ERROR RUUTINE 
A OQONESCNTR | i DD 1 TO COUNTER 
ee rama eo EME Ree ee er ee rare UP BACK TO Aa1l- 7 


9-2 o  . 3 #2, oh 6/28/71 


ROUTINE LOGIC~-=-COMMON 


CDCHK 


Explanation: 


To determine transaction va ubroutine routing, 
the second character n., BL Ss compared to function 
codes D,A,T,R,* stored i : Gh time the program loops 
through this routine, aaah: 4 i 

to use in ZZ (CHKT roy ad R. 
The program will “ CHKT when the code is 


identified. If th ae four times and has not 
encountered a va 


and moves a 2 in 
a format error 


ssage s Doug switch INPSW to indicate 


External References: 


A, ADCNG1, ASTER 


R, CNTR, ONE, ZEROS~-Common 


Normal: CHKT, TSET1 


b. Abnormal: None 
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ROUTINE LOGIC--COMMON 


*% ; 
TET SS TEST TERNINAL ID TO BE NUMERIC 
+ . 
CHKT C BUFFER+5(1%92)sBLNKS 
a REE SET LL Bp _ 
CHKT1 MC BUFFER+5(4,2)sTS3 
FN TS3(5)sTS4(5) 
TT TGS Ya TS ERIC? ~~ ae 
Z BC CHKFD(2)sTSET1(5)- ERROR KQUTINE 
ZZ C ONESCNTR | IS ONE 
wo BE CHR A( BY RANSACTION LENGTR IN TAB" 
~C ThOs CNTR TER IS Two | 


cee tetehnticermstes ay 8 Ae me nt eth mR il mete Se wee 


9-4 


BC CHKFT(2) 
CS THREEs CNTR 
BC CHKFR(2) 


QbELeETE TRANSACTION LENGTH IN 
: DTER. TS THREE Cr ee 
) CHANGe TERMINAL ID IN TABLE 


6/28/71 


ROUTINE LOGIC~-COMMON 


CHKT 


Explanation: 


External References 


Test for Numeric Terminal ID and Route to Proper Subrou 


BUFFER contains PA03=-9999.../ 
ray 


' zero 
3 If it is 
ed by BUFFER+5 (4, 2) 
TS3.ane moved to TS4, 

. means that 
and at Z the 
(INPSW = 2, 


The 
the 


are moved. to TS3, the numeric bit 
and the two are compared. An 
the four characters are n 
program will branch to error , 
Format Error). 


entire terminal 
the program will 


entry) transaction is ck 
been modified by the 


sean to CHKFD becaus. 
addres constant AD . 
lease through CDCHK Jeast once aaa cauSing Z to be 
modified), will brane © 22 instead of to CHKFD. The 
content of CNTR i these transactions’ to 
CHKFA, CHKFT, or 


“CNTR, ONE, TWO, THREE, 


Normal: TSET1, CHKFA, CHKFT, CHKFR 


Abnormal: None 
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ROUTINE LOGIC-=COMMON 


em DELETE ENTIRE TERMINAL TABLE ENTRY © x 


CHKFD NHC ZEROS(1), CNTR ELSE SET 
ye A EROS a Ke SET INDE. 
e CHKF Oe BC ChHKFDL4+1(6)sSTORAR(5) 
. A FIVE? X2+2(2) 
oe OO BUFFERF5 (13 2)4BLNKS 
BC LOT6L1(2) 
MN AOCH9sZ+1 ) 
ee Ci rar iariad 


DE BLANK9> 7D 
TERMINAL ID 

nOvIFY INSTRUCTION Z TO CH 

“TOC CHKT 


ORG #95 | 
—-eRpeys? “0H “ACHR DEE pT SFr 
* : 
* , } 
"DELETE ENTIRE TERMINA Ac aa aaa aca 
* 


DEL MC BLNKS(36)sTCTABL 
Sen ONESCNTR 
BC ¥*+10(3),TSETCE 


K GUT ENTIRE TERMINAL TABLE. EW 
3TRACT 1 FROM CUUNTER ~~ : 
[F ZERG, GOTO NORMAL EXIT ROUTINE 
IF POSITIVEs ADD & TO INDEX 2 
“BRANCH AND SEARCH FOR TERMINAL ID 
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ROUTINE LOGIC=-COMMON 


CHKFD/DEL 
Delete Entire Terminal Table Entry~--Option D | 
BUFFER contains PD03-9999~8888-7777 
, e ” 
(Terminal Numbers Only) = en 


Explanation: 


The first instruction is a branch 
count the number of entries 
CNTR. If CNTR = 8, the prograr 
the terminal ID's in MTCTABI 
program to link back. jis 
so that BUFFER+5(1,2) now 

in the 7102 message stored..j 
not blank, the program ] 
until it does encounter 
or until CNTR in S! 

LDTBL1 to find the 
for deletion of t 


8 will cause the 
incremented by 5 
eleventh character 
- If this position is 
HKT through CHKFD2 again 
he X2-modified address 


“in TCTABL and then to DEL 
ries. 


External References: 
ZEROS, CNTR, § 


X2--Partition. 


LDTBL1, CHKT 


Kbnormal: None 
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ROUTINE LOGIC--COMMON 


x 


DEL | MC BLNKS(36)sTCTABL( 21) BLANK GUT ENTIRE TERMINAL TAB 

T=" SF" ONES CNTR SUBTRACT 1 FROM COUNLER 
BC *+#10(3),TSET2@(2) - “IF ZERU», GGTO NORMAL EXIT ROUTINE 

| A OFIVESX2 IF PUSITIVEs ADD b> ¢ | 
BC EDT aLet(s)- =. = SBRANCH AND SEARC igs (> maa 

% | ; 

x 
9-8 
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ROUTINE LOGIC-~-COrion 


DEL 


‘Delete Entry in Table--Option D 
Explanation: 
Blanks are moved into the 36 spaces occupied a. 


identified’ in LDTBL2 as the 
deleted. CNTR is decremented by 1, 


(With a ae Lan table, this. 
only once). When CNTR = 0, th i 


External References: 
BLNKS, ONE, CNTR, FIVE-~-Comn 
TCTABL, X2--Partition 

Referencing Routines: 
LDTBL2 


System Constants Affect 
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ROUTINE LOGIC=-COMMON 


% , 
"= REPLACE TERMINAL ID “= GPTION RUUD SUT Te 7 
% TEST FOR NUMERIC ENTRY © 
es af | | 
“TCHKFR MC ZERCS3 X20 SET UINDEX 2 TO 0 7 a 
MC ZEROS(1)sCNTR | - SET COUNTER TO O 
CHKFRe C BUFFER+10(1,2)2BLNKS — IS NEXT EWTRY BL 
= BC Teb nL ade oe 8 ON Te VE Se GOTO JER: ae ee 


MC BUFFER+10(422)4TS3 YF NOs MOVE EN 
FN TS3(S5)sTS4(5) | FORM NUMERIC 


TSS Tse ‘IS BNIRY AuUM 
BC ¥#10(2@)s TSETII9) IF NUs GOTG 
MN ADCiis R+1 HODIFY Ine 
5 sn CHKFO1+1(6)sSTORAR(5) © BRANCH Aj 

A TENsxX2+22) © t. 


SERGE °8 


CU BRANCH ro 


Cc BUFFER +S (132) 2 BLNKS : . 
see BO LOL Ce). eer | UTO F. TERMINAL 107 
| MN ADCHNGsZ+1 | ie Oo Z TQ CHKFERe 
f BC CHKT1(5) E To q FOR NUMERIC ENTRY 
a COR PY PRN ee gee See iat ee eT gh NEP! Ca My Od Ngo popes Margie Pee awa © Fa eae Mia We ge hg Aeeren Gps) Phy oe oe ma 
ORG #5 
AGCHNG DM A'tCHKFRe! 
wg en BOA, tetra EA neal a ah aes cel 
* 
* REPLACE TERMINAL ID_ 


ENTRY TO TABLE | 
TRACT 1 FROM COUNTER 
ZERO, GOTO NORMAL EXIT KOUTINE 
F POSITILVEs ADD 10 TO INDEX 2 
BRANCH TO FIND ANOTHER TERNINAL 10, 


% 

ROEL NC Ee ee ata) 
| Ss OKEs CNTR 

a BC #41003) TSET?!]) UY 

, A TEKs Xe 

BC LUTBLe(S) 


essen mpcateine n nn enn = mend attenete 


ack Sauna aa 
ORG = =-*5 
ADCi1 OM ATROEL! | asian 


ig, ts oe re 6/28/71 


ROUTINE LOGIC--COMMON 


CHKFR/RDEL 
Replace Terminal ID--Option R 
Test for Numeric Entry 
BUFFER contains PR03-9999-0701-8888-0702/ 
Explanation: 


The program enters from CHKT(22) when. Ch Ss X2 and 
CNTR. are Set to zero, then the position of 
BUFFER+10(1,2) is checked for blank. If Hot blank, the 
new terminal ID nummber (fou characters) is moved to TS3 


to be checked for numeric as. exp] 2d. ain CHKT. If the 
entry is all numeric, Ri 2 E outine is modified 
to branch to RDEL (replace termi ID) and there is a 


branch and link to STORAR: to. ¢.the number of entries in 
the message. i‘ | 
X2 is incremented by. character is 
checked for blanks 
A blank sends the 
in TCTABL; 


wenty-first 


jes Z in CHKT to be modified to 
. to CHKT1 to see if this next 


S3, TS4, ADC11, STORAR, TEN, 


a. Normal: MTSET1, LDTBL1, CHKT1 


-b. Abnormal: None 
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ROUTINE LOGIC~-COMMON 


mete oe 


* REPLACE TERMINAL ID 

% . : ; = 
RDEL MC BUFFER+10(492)sTCTABL(,1) MOVE ENTRY TO TABLE 
S ONE,CNTR | SUBTRACT 1 FROM CUUNTER 

wo BCU F103) TSET2A0CA) TF ZERU, GOTO NORMAL EXIT” 

| A TEN» Xe IF POSITIVEs ADD 10 

‘BC LOTBL2(5) ! : 

ig 

ORG xn 

ADCi1l DM A'IRDEL' 


(ee eetmen nimi Sn inh ei mR ar le Me eR an Ue URN oH mM NN 


a eg ae et aR amet tt arte ne nbn: that meme take Nn 8 Aes a nee ,. —eeeete nat act ninetninaeepe ena «emma © 
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ROUTINE LOGIC-=-COMMON 


RDEL 


Replace Terminal ID 
Explanation: | 
Four characters are moved from BUFFER+10(4,2) . ( 
2.2 (82) 
TCTABL will be 


(X1) to 
This 


through LDTBL2. Since index 
incremented by 10, the next termin: 
checked by LDTBL2, which will incr: 
indicate the position of the next 


External Refernces: 
BUFFER, ONE, CNTR, TEN--Comm 
TCTABL-~-Par tition | 

Referencing Routines: 
LDTBL2 (R is modi 


System Constant Affecte 


a a | 6/28/71 


ROUTINE LOGIC--COMMON 


DELETE TRANSACTIUN TABLE ENTRY = OPTION T 


¥. 
ee" TEST TRANSACTION CODE (188) 00 en a 
¥ : 
CHKFT MC ZEROSsX3 SET INDEX 3 TO 0 
Tenn NE ZEROS (1) CNTR GET COUNTER TO O : : 
CHKFT1 CC BUFFER+10(193) NINE IS NE 9? 
BC *+10(4)s TSETL(5) © " IF YES, 20h 
Tom Eo BUFFERFLO( 1,3) 90NE° ~~ > IF NO, | THA 2 
BC TSET1I(1) IF YES» & ; 


A Tuo Kaeo Le). ADD TWO... 

C - BUFFER+10(123) 2 BLNKS. IS THE fANSACTILON CODE? 
TBE LOTRLD (2s CHKETI (SD IF NO RMINAL [DTT te 
* aa . IF YESs LOt BACK AND TEST NEXT TRAN CDE 


¥ | es 
aes aa Ss a eee a ge Pte eer ee es Sere 
+ DELETE TRANSACTION IN TABLE 
ng ; e 
ohana. T 0 3 ows M C 7 Ee R 0 eS , x . as aca ance St alc Secs) cate ae ; | 3 : T 0 . Oo merece mena mene etiam tan genet oo» 
HC ZEROS» Xe | xX 2 T0 0 


TOEL1 MC FOQUR,Xe+2 . SET: EX 2 TO '004Q! | 
acacia mies ia BUFFER+10(1,3)sxX2+2 MUL Y TRANSACTION CODE BY74-—7 7” 
A X2+2(2)9 X14) _ bExX 2@ TO INDEX i 
| MC BLNKS(4)sTCTABL R APPROPRIATE LENGTH ENTRY 
pepe repeaters sae EN LR Se STRACT -1 FROM CUUNTER (TCC 
BC ¥+10(3)sTSET2¢ ZERO» GO TO NORMAL QUT RUUTINE 
A TwO,X3 IF POSITIVEs ADD 2 TO INDEX 3 
5 x2 42 (209 XT AT RESTORE CONTENTS OF INDEX OUT 
BC TOEL+10(5) “LOOP BACK TO DELETE NEXT IRAN CDE 


* 
ee eee, OR Guxe5 a a et ne tN a tm 
ADc160: DM AITDE 
¥ r 
e. . 
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ROUTINE LOGIC=--COMMON 


CHUKFT/TDEL 
Delete Transaction Entry--Option T 
Test Transaction Code 
BUFFER contains PT03-9999-8-7-6-5/ 
: A 
Explanation: 


~ code to 
. delete. The program 
Z) when.CNTR = 2; CNTR 


ed as the first step. 


This routine uses the one-digit 
determine which transaction entry 
age branches to this routine from CIIK* 
and index register 3 (X3) are cleé 


If BUFFER=10(1,3) (the elevent 
through) is « 1 or  g 
routine TSET1 because 
Otherwise, instruction R # E 
TDEL, and a branch and }] AR to increment CNTR is 
executed. X3 is j r 2 to check for the next 
transaction code, an progr m either loops to CHKFT to 
test the next cod Le 

terminal ID in TCT 


External References: 


ZEROS, CNTR, 
TWO, BLNKS--<¢ 


Ye ONE a ADC 1 0 7 STORAR rj 


X3--Partition 


(R is modified to ADC10) 


e 


LDTBL1 


b. 
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ROUTINE LOGIC--COMMON 


ian es oer ee saline inp ahs ac ins ‘a eo arsine 


+ DELETE TRANSACTION IN TABLE 
¥% 
————T DEE MC ZEROSs XQ SET INDEX 3 pita meatal 
MC ZEROSs Xe SET INDEX 
TOEL1 MC FOUR,X2+2 © SET INDEX 


ea tne BUPPERSTOULs aig Xe tet 15> a a 
A KAHAN XLCAD 


MC BLNKS(4)sTCTABL( 41) 


MUL TIPY 


LENGTH ENTRY 


ma ORE CNTR HUNTER > = 
BC ¥+10(3),TSET2(2) ORMAL OUT RUUTINE 
A TwO,X3 2 10 INDEX 3 


STIS NO eee eS 242 (2PXTA : RE CONTENTS” OF INGER 1 oe 
| BC TOEL+10(5) | DELETE NEXT IRAN CDE 


# . a te de 
mmcuas 5 R a a ee nn a rr nn i ee ee ff 
ADC10 Dm ATTEEL! -~ 
* . - 
| 6/28/71 
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ROUTINE LOGIC--COMMON 


TDEL 


Delete Specific Transaction Information in Table 


BUFFER contains PT 03-9999=-8=-7-6/ 
oh 


TCTABL contains '9999076 076 076 076 076 076 076 


Explanation: 


routine; X3 is used to find the. 
communications terminal message. 
and X2 are used to find th 
TCTABL (the entries are in 
number). 


Index register X2, and X3 are cleared a 


by code 


BUFFER+10(1,3), the eleven on the first time 
through, is multiplied -by ! ne. product is stored in X2 
(in our example, 8 x 4 . K2 becomes 0032). If 
terminal 9999 is the “entry in TCTABL, X1 will be 
0000. When X2 is added will be 0032. The next 
instruction, the fir Sar -hroug 
TCTABL(,1) (X1 is 32 = al :y-third position that is 
the starting adds: e four digits of information 
associated with transaction code 8 and terminal 9999. 


External References: 

ZEROS, FOUR, IKS, ONE, CNTR, TWO--Common 
X1, X2, artition | 
Referencing R¢ 


ied by ADC10 


jormal: TSET2 


b. Abnormal: None 


(6/28/7) 


ROUTINE LOGIC-=COMMON 


ADD Ne eee TO TABLE »© OPTION AOU 


¥% 
4 
¥ Test TRANSACTION (CODE (178) 
*% 
CHKFA NC ZEROS(1L)s CNTR SET COUNTER TO 
MC ZEROS» xe SET INDEX @ 
mmm NC ZEROS XQB° TUT SET Intex 3 A EE 
C  BUFFER+10(123)4BLNKS IS TRAWSAC [00 TRY BLANK? 
BC TSETI(2) IF YES ROK GROUT 
~ CHKF AL Co BUFFER+10(153)sNINE ~~ IF =9Q 
BC ¥4+10(1),TSETI(S) IF 
C  BUFFER+10(1,3)s0NE IF 
EP SPE ON ye rug B C TS eT 1 ( 1 ) Fa Np pe ae oe, I F 3 f : — 
MC BUFFER+10(123)4TS3 MO VE TRAN CUE to TS3 


| C BUFFER+12(153)sBLNKS 
ibe ah aia i a stags ein’ de B CT S {c Y 1 ( 2  aentar ia samcairiac ean as eer neiciaa aad 
MC BUFFER+12(313)sTS3+1 
C BLFFER4+16(193)sTO 
BC ¥FU O01), TSETII(S) 
FH TS3(5)sTS4(5) 
| C T83(4)sTS4 _ 
eee BCT 410022 TSETIIS) 
NC BUFFER+16(1293)aT 
| MC FOUR?X24+2 
TM OO BUFFER+10(193) 
MC 1S341(4)sTSw 
5C  CHKFD1L4+106). 


RROR ROUT INED 
ENGTH TO 783 
NDICAIGR <2? 

Pu ERROR, ROUTINE 
URM NUMERIC : 

PY NUMERIC? 38 
GOTU ERROR ROUTINE 
Ss MOVE ROUTING INDICATCR TO 
INDEX 2 TO 'O0U40! 

ULTIPLY TRAN CDE BY 4 OU" 
OVE TS3 JO TSWKA | | | 
BRANCH AND LINK | TU STORAR 

-ADD 8 TO INDEX 37 ee pe ene 
Is NEXT TRAN CBE BLANK? 

IF YES» GUTO FIND TERITTNAL ID 

IF NOs LOOP BACK TO TEST WEXT TRAN COE 
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ROUTINE LOGIC--COMMON 


CHKFA 
Add transactions to Table=--Option A 
Test Transaction Codes 1 — 8 
BUFFER contains PA03-9999-8-012-1-7- 076-1/ 
3 7 
Explanation: 


This routine can be used for ins¢ 
into a table as well as for:.<¢ 
information, 


X2, X3, and CNTR are cle 
evenen position the firs 
valid transaction code, v 
Then the next three di 
TS3+1 if they are not | 

(BUFFER+16(1,3) ) 3 
entries are tested 
explained in CHKT 
indicator is moved 


sf if found. 
R123, 3) ) are moved to 
the routing indicator 
: 2, the code and length 
by comparing TS3 and TS4 as 
are numeric, the routing 


Next, the transi 
by 4 and t 
example, X. 
indicators 


on code in BUFFER+10(1, 3) is multiplied 
S put in index register 2; in this 

A 0032. Length and routing 
TSWKA(,2) as modified by register 2 
L is updated. A branch and link to 
t SNTR. The program either branches to 
D in TCTABL or adds 8 to X3 and looks at 


CHKT (22) when CNTR = 1 
Constants Affected: 


None 


a. Normal: TSET1, TAZK 


b. Abnormal: None 
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ROUTINE LOGIC-=-COMMON 


¢ 
EE OT OR TROD TERIWAL 10° EN® TAGE OO ee ee eee . 
% 
TAZK NC ZERGSsX1 SET INDEX 1 TO- 
EN AN LENG Os Me Oe eee SET CLNUEX TO. ~ 
MC ZEROS, X3 SET INDEX 
TAZKi C BUFFER+S (4) TCTABL (91) ARE TERMLis 
irre PR at err ~~ TF YES, er gees ae 
C TCTABL(491),TCEOT IF NOs j END OF TABLE? 
BC TAD(2) | IF YE ; 
PEN ee ee A CONG Lex oe NE - 7 INDEX [ariel 
BC TAZKi(5) : 
2 | 
amas a a a ae ee Ee a Ee a ee a Sa ae at Bi I eh 
*% 
* 


PA = ie ZEROS pk. oe ee, 
TAD2 C TCTABL(4914)28LNKS 
BC ¥410(2)3%+30(5) 
aaa: 5 | Sik BUFFER+S (4) s TCTABL 
BC TAD3(5) 
C TCTABL(431)s TCEQ 
Sara BO Terr ate ye 
A TCCNS1s9X4 : 
BC TAD2(5) 


Ne aera rimetiatn, en NN SANNA RE A eS A RRR ot HRN A “RUE Ne Rh nee mneEp RS, 


+ % 


90-0 
AL ID BLANK? 
GO TEST FOR END OF TABLE 
S, HOVE NEW TERMINAL ID Ta TA 
H TO ADD ASSUCLATED TRAN CDE 
HIS THE END OF THE TABLE? 
“YES, GO SIGNAL TERMINAL ID ERRO™ 
NO» ADD 36 TO INDEX 1 

LOOP BACK ANO CONTINUE SEARCH 


ote eo ee gt a+ seen ae set penne ct ocean Sea ORI a AN en ALR OS A art ie ON FRR A ee ties = nanan Rts 


ey HE 
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ROUTINE LOGIC=--COMMON 


TAZK/TAD 
Find Terinal ID in Table 
BUFFER contains PA03-9999=-8-012=-1/ 
Explanation: ‘ 


BUFFER+5 (4), positions 6 4-9, is compared to 
TCTABL(,1); if unequeal, the lengt f each terminal entry 
in TCTABL (36) is added to ¢ “and the search 
continues. There are severa a 
routine. If ID's match, 2: 
length and routing indicator aft 
end of the table is reache 
a branch to TAD sets X1 b 
over to look for a blan 
there is a blank IDz 
and processing continu 
program branches to 


‘AD3 inserts new 
If the 
1 ID, 
ae the search starts 


lan a matching one. If 


External References: 
ZEROS, BUFFER 
X1, X3, TCTAB 
Referencing Routines: 
CHKFA1 


System Const: 
Exits: 


Normal: TAD3, TAD2, TAZK1, TSET3 


bnormal: None 
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ROUTINE LOGIC--COMMON 


nee came yon ne i a emis eee ct mn ane nA ea ent tee 


eae Re Cuca ee 
M BUFFER+10(1,3)9X2+42(1) [ 
| A X2+2(2)9X1(4) A 
TT MO TSK A( 422 eT CTARLC rE)? | 
S Obes CNTR 
as ¥410(3),TSET2(2) 
Sa ace a aa “3 6 Ac ea ae laa 
: X2+2(2)5X1(4) | ie 
BC TAD3(5) 


Ae em eee enter He ae ae oi Rt cerminee to Meme emma Serneetenaenene et Man te a meen el nt na SctNi 


¥¥ 


QO INDEX 1 

OUTING INDICATOR TO” 
FROM CUUNTER 
TO NORMAL EXIT KOUTINE | 
Es ADD 8 IG INDEX 3 


ACK ANDO CONTINUE 


ae ee me dee a Ly nan me Sl en aN pe sm ta 
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ROUTINE LOGIC=--COMMON 


~TAD3 
Add New Transaction Length and Routing Indicator to TCT2 
BUFFER contains PA03-9999-1-012-1... 
TCTABL contains 9999076 076 076 076 076 076 076.0! 2 
‘A 
Explanation: 


4 and the result is 
in this example. The 
inter for TCTABL. 


The transaction code is multiplied 
put in register 2--the value. 
value of X2 is now added to x1 

Length (012) and routing ndi oA) 
TSWKA as modified by X2 in routi iIKFA1 and are now moved 
to TCTABL(,1). : 


If CNTR is 
is restored to its 
back to process 
BUFFER+10(1,3) now 
one When CNTR = 


In our example 076b will. 
not zero, X3 is ‘ 
value before TAD3, 

the next part of 
points to the ninete 
0, the program exit 


External References: 
FOUR, BUFFER,.<4 CNTR, EIGHT--Common 
X1, X2, X3,_ .BL--Partition 


Referencing Rout 


ial: TSET2 


Mbnormal: None 


9-23 | | 6/28/71 


ROUTINE LOGIC=-=COMMON 


¥* % . 
* KEEP COUNT OF CONSECUT 


° 


STORAK A ONEsCNTR 
| — CC CNTRZEIGHT 
““CHKFDL BC CRKFDLI(4)sLDTBL1(I5)> ~ 
*% 
¥ % 


Sete ee termes rem beeen eee me ae RN ee a mene 7 oetaeehaneemmnetiteetaalieasenatemataanttitocieateedeunamteentioeaea ied 
Se en gee cme | thee teak Ht a neem Anne amin ah: eh lee pn et A= mo a pn mn Sane tte ACD eet iene pina hermes murat —tne » 
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ROUTINE LOGIC=-COMMON | 


STORAR 


Count Consecutive Entries in Message 
Explanation: 


This routine is entered on  branch-and-link 
from CHKFD, CHKFR, CHKFT, and CHKFA. 


compares the result to 8. 
the program returns to the 
otherwise, it goes to LDTBL1. 


ss stored in CHKFD1; 


The contents of CNTR are util 
TAD3 in changing TCTABL. a 


RDEL, TDEL, and 


External References: 
ONE, EIGHT, CNTR~-Commo 

Referencing Routines: 
CHKFD, CHKFR, CHKE 

System Constants Affe 
None 


System Constants Affected 


Exits: 


DTBL1, return address stored in CHKFD1 


Abnormal: None 
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ROUTINE LOGIC-=-COMMON 


¥ ms 
¥ FIND TERMINAL [9 IN TABLE 
* 
“LUT BEE MC ZEROSs xX eee 2 TO” EN ge Oe een 
MC ZEROSs X2 | ee EX ec T0 O | 
LOTBLe C BUFFER+5(4s2)s TCTABL (21) é AL. IDeS EQUAL? _ 


aR = BE DEL Geleett0loh 2 
C TCTABL(441)sTCEOT 
BC TSET3(2) 
ep NN et FINN T C C Ki S j ? ae ee FeO aa a 
BC LDTBL2(5) 


i i ND be Xx : 1 Someta S 
BACK TO LUTBL2 


9-26 


MoDIFleb ADDRESS ~— 
S END UF ABLE? 
(O ERRUR ROUTINE. 
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ROUTINE LOGIC==-COMMON 


LDTBL1, LDTBL2 


Find Terminal ID in Table 


Explanation: 


This routine is used to find the appropriate termi 
in TCTABL to update; X2 points to the buffer co ents and 
X1 points to the contents of TCTABL. X1 and : 
‘0000'. : 


the referencing routine. | Saudi and the end 
of TCTABL has not been reached “ length of each 
TCTABL entry) is added to & hhe..search continues. If 
the end of TCTABL is reachec match, the program 


branches to error routine 


External References: 
ZERO, BUFFER--Comm 
X1, X2, TCTABL, T j~-Partition 
Referencing Routines: 


CHKFD1, CH DEL, CHKFT1, TDEL, DEL 


System Constants Affected 


EL (modified), TSET3 


None 
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ROUTINE LOGIC-=-COMMON 


emer eet) Seen Ati eA nme oN NE CNR i RR OY CR A mS A eR RN A RE fern rt Sete Or ge ee mma oe 


¥% 

gs ERROR ROUTINE 
: | a | 

Tessa Ne TWoyihSa ern ee Tey TOS 

BC i ae _ BRANCH TO EXI 


* 
acta ahaa ie eK OG ag ee aloes Sess 
ADCNG1 DM A'ZZ! 
% 
wg nn 
* NORMAL EXIT ROUTINE 
x 
~ TSETe NC ZEROSINPSW SET 
BC TOUT(5) ; a F: 


TO-SYGNAL NORMAL 
IT ROUTINE 


herent ae 


maeren dion -O R GC Ee a 5 oD ee OE ee Ee EE AS REE STE RE OEE ES ~ Se ita OE i tS aig cd Re sae Cartes age St OT Noe, 
A OM OC4 
OM. Cipr 
Waerremig ete eget as Dp Pe A te ee ee 
DM cite | 
DM CIR! 
—“ASTER” DM Chet” 
¥ 
—"————" TERMINAL ID” ERR STINE” SF ae ip er tet Stee Od eR aE a ete i EO 
*+ ‘ ‘ 
TSET3 NC THREEsINPSH 
7 TOUT MC ZEROS(2)3 
7 MC ZERCS(1) e178 
CDEXIT BC COEXIT(, 


nears sh ee S eimaeenmmmanets 


TIRE TERMINAL ENTRY 
ISACTION CODES ChTRSsfPTT 
RANSACTIUON CUDES CNIR=2 

SE TERMINAL Ib CNTR=3 

I6LE OPTIONS Cm 


ete rae Sn es en NE a 


SET INPSW TO SIGNAL TERMINAL ERROR 
“REMOVE SIGNAL FOR TABLE UPDATE 
RESET FORM NUMERIC FEELD 

RETURN ADDRESS 


9 semen, ste wieetens avert Hsampenmst! spent eo oees mie ence a + ete omnes <enatetenttmnate tan tennant nee, 
“¢@ 


9 


een ONLI NAGA NNO NaN ee 
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ROUTINE LOGIC=--COMMON 


TSET1, TSET2, TSET3 


Exit Routines 


Explanation: 


TSET1 moves 2 into the message status switch 
Signal a format error, then branches to TOUT. .1 
0 into INPSW to signal a normal entry, then...t 


TOUT. TSET3 moves 3 into INPSW to 
or invalid entry and falls through. 


TOUT moves 00 into BUFFER+2, 
remove the signal for table u 
to form numeric, and returns - 
beginning of the CD=-30 Termin: 
External References: 
ZEROS, ONE, TWO, THREE, 
Referencing Routines: 
DEL, CHKFR2, RDEL 
LDTBL2 
System Constants Af 


INPSW 
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ROUTINE LOGIC=--CD-30 PARTITION 


ROUTINE LOGIC--CD-30 PARTITION 


This is the main line program 
transactions from the terminal, 
appropriate output routine. 


9-31 


that processe 


then branche 
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- ROUTINE LOGIC=--CD-30 PARTITION 


¥ 
+ TERMINAL READ MODULE 
~~! scent werner meme -talanataente eamrnaenin mia Ata ae tc my ne At ante i tn nar Ne Rt ee et ee i nf tw as rt An caet nem tenet 5 eeanmnateminnetet pater aceasta arte etne wire te a tp ark Me 


COSTR C ‘CDPNO, BUFFER+2 
~—BC CDEXIT#1(6)sCOCHK(2) 


CLC A I NRE la oO Rh ce: NEI ineR eR NRE YER aie tI a eR: ARR tN NEAR Be ca erte—tenenemt me whee tenet hte ewe eect settee ene 


NEED UPDATE? | 
2 TABLE UPDATE ROUTINE 


: ee ee ee, 
C INHSW»s ZERO i NHIBITEO? 
(BC +1012), CDSTRIB) ANCH & SWITCH PARTITION — 


aaa ae. ne enamine! mtn one me eee ts nem | a gt eet ot et mma a ef cate erect se eee ee Se em ew accent me 


BC CDRD(7)sCDRDIO) 
BC. CDSTR(8) 


een ns memes a a —_ / SPamenetin eae + mee ltgpermtes AARNE tie mee +) emi x niet mt Sa te ei tN aN Se mses mei marl, Pkt mot Ste tt 


) SERVICE REQUEST? 
shee Sie PARTITION 


0 ee pees a so nemo amen caer oe Seeman mn ts A Ne ap Ne A ee rtm ns sa 
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ROUTINE LOGIC=--CD-30 PARTITION 


CDSTR 


Explanation: 


Beginning of CD=-30 Partition 


This is the first routine in each CD- -30 partitio 

table update has been entered on the 7102 or Model 70 
communications terminal, this routine. performs : 
link to CDCHK, the table update r in Common. 


to CDSTR and switches to the nextiitag f ns If there is a 
service request from one of the 4 n: on this 
IOC, the routine branches i ot, back to CDSTR 
with a partition switch. 
External References: 
CDCHK, INHSW, ZERO, 
CDRD--Partition 
Referencing Routines: 
TATTLE-~-~Common 
System Constants Aff 
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ROUTINE LOGIC~-CD-30 PARTITION 


CDRO MC BLAMK»CDIN : CLEAR 1ST 6 CHARS UF INPUT AREA 
. R  CbIN(0),0200(5) READ CU=3U TRANSMISSION. 
pe eT ee. See C %44QG9 ( Vad ) i 3 Q (ji ) oe ee ee | =e ee | eS eas 


”, 


MC COPAR@sCDERID | INDICATE. ERROR 2° FAULT ON READ 
2 Be Wee Oka) =, pee aes 


OC CDPAR1,COERID INDICATE ERROR NO* 1 = PARITY OW 
See AONE YPREONG a ADD. 1 TO RECORD. SERIAL % 
BC *+10(4),4+20(5) | - OVERFLOW? | 
MC ZEROS(5)sPERCNT oF YESsSET ERRGR COUNT 


MC CDNC(16)sCDKEAD 


-—==— ~ Me CpeReXBoT : 
A CO5Fsx2 € | 
HC CDMXxLhyCOMSGL * CUMNPUTE NESS 
ees Se CM Pe UT GOSGL 2 8 SS Absa ee 

BC ¥*4+20(3),*+10(5) © IF RESULT I 

ae CDININ+2(4) 5 CDONSGL 
alias COMSSL»CDMNIN Mao eee tee 
BC ¥4+10(1)9 4+20(5) ; 
A  ThO, COMSGL S yA : SAGE LENGTH 


ae rH en am te ae me A meee meh HS ty HY ee a fo et 6 en ene SN tema en NEN San EL pet a nen Ore eat me Famer Hemme dnote cme 


MC SIZE1,CCSIZE | 
TOF MCT TADDR DXDT : 

MC IADDRisxe2 | REG PUL ADUR = CDIN 

MN TACOR1,CC8+1 | : Aa} 3LE TBL1 
OO BC CC44+1(639CC1(5)> 7 BRANCH INK TQ COVE’ CUNVERT 7 

MC CRIn(6)sTRNCDE DE AND TERMINAL Lb 


mom CO CDERSW) ZERO 7 ANSMISSION IN ERRGR? 
BC *+20(3) | __ TE YES, BRANCH AROUND CALL TO TERMI 


* 
oo" BCUTCEXIT+1(6)5TCS NCH AND LINK _ ‘TERMINAL CHECK 
*! 


MC SIZE2,CCSIZE 


| SET LENGTH FOR CODE CONVERT [0 2e 
"MC TADDRAs Xi 


SET REG1 TO INPUT ADDR = CDHEAD ~~ 
MC LADOR2sX2. _.SET REG2 TO OUTPUT ADDR = CUDHEAD 

MN TADGR2,CC8+ SET A#ADOR TO TABLE = TBL2 

ee ee CC4+1 (6. 405) “BRANCH AND LINK 1O CODE CUNVERT 


MG. CONSSL 
7 S SIxXsXi 
; BC *+60(1) 


oe" MOVE MESSAGE LENGTH TO INDEX 1” 
SUBTRACT 6 FROM INLEX 1 
IF MNINUSs BRANCH AROUND NEXT CALL T 


| SET LENGTH TO REMALNING LENGTH UF 
“SET REGL 10 INPUT ADDR &-CDIN+6 7 
_ SET REG2 TO QUIPUT AUDR =» CDIN+6 
-— “SET ASADDR TO TABLE = TBL3 
“BRANCH & LINK TO CODE CONVERT 


Me. a ane meee 
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ROUTINE LOGIC=-CD-30 PARTITION 


CDRD 


Read Transmission 


Explanation: 


This routine reads the CD-30 transmission into the 
input/output area CDIN. CDIN is usually 200 
long even though some programs, such as the one™ 
do not use all 200 positions. 


record serial 


Normal Read. 1 is added to the t.. 
2 partition error 


number PRCDNO (on PRCDNO over: 
counter PERCNT is set to zero), fs 
prefix is moved into CDHEAD ich mmediately precedes 
CDIN in core. ; 


follows. CDBR, the 
moved into X2, then 
is added to X2. 


Next, the message length is‘ 
B register base constant 
CD5P (five times the par: 


imum message length minus 1 (or 
CDMSGL, the message length. The 
subtracted from this. Since CM is 
t four positions of Common, modifying CM 
X2 will give us address 0121 in Common, 
3 \ddress of the B register for Partition 04. 
r agi mntains the number of characters remaining 


The constan 
0199), is 


- Of this subtraction is not positive, 200 is 
ved to message length CDMSGL and, if either positive or 
ive in the preceding subtraction, CDMSGL is now 
to minimum message length CDMIN (0002). If CDMSGL 
than 2, 2 is added to it. This last transaction is 

quired because the IBM 360, which is sometimes used, is 
apt to ignore a record of sixteen characters or less. 
Since the MIS header prefix is sixteen characters long and 
Since we want a record of at least eighteen characters in 
his example, adding 2 to CDMSGL will ensure that it is 
read. 


Next, the first six characters of the terminal transmission 
(transaction code and terminal ID) are converted to System 
Ten USASCII and stored in TRNCDE and TCTID. At this point 
the program executes a branch and link to TCSTRT, Terminal 
Transaction Check, using the transaction code and the 
predefined TCTABL to see if the message length is correct 
for that terminal ID and transaction code. Next, the first 


6/28/71 
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ROUTINE LOGIC--CD-30 PARTITION 


itera ee eee ee ene a ef Aire tas 
CORD MC BLANKsCDIN . CLEAR 1ST 6 CHARS UF INPUT AREA 
R COIN(0),0200(5) READ Cb#30 TRANSMISSION | 
Reena A OT Jo eee a (dy pm hn nr ene aE ee ee 
. | 
MC CDPAR2@sCDERID INDICATE ERROR 2 = FAULT ON RE 
Paci cte ea RE eS _ : 
¥ oe 3 | 
| MC CDPARL,COERIO " INDICATE ERROR NOe. 
Sasso GNE,PREONG woe mmm ADD 1 10 RECORD SEF 
BC ¥*4+10(4)7%+20(5) OVERFLOW? | 
MC ZEROS (OVS PERCENT TF YESsSET ERROF 


MC CONC (16) sCOHEAD 


pen EC bERg Re ae PS. ype eeeee 
A CDBD5PsxX2 % 
. HC CDMXLN,CDMSGL ¥ COMP 
TS SCN) CDHSGR =e 
BC ¥*+26(3),*+10(5) : 
MC COMIN+2(4)sCONSGL 
pene pan rer Meas COM TN eo ee 
| BC ¥F1001)9 442015) 
A TwO,COMSGL 


STH FOR CODE CONVERT TO 6 

G1 TG INPUT ADOGR =» CDIN@ 

&£G2 TO OUTPUT ALDOR = COIN 

#*ADDR TO TABLE * TBL1 

: CH & LINK TO CUDE CONVERT 
VE TRNCDE AND TERMINAL ID 


: MC SIZE1»/CCSIZE 
opera en eae ee ERE gM ee 
MC IADDR1s»x2 
MN TACDR1I,CC84+1 
=" BE CO4+1 (6) 9 CCL (577 
ee gs MC CDIN(6)s TRNCDE. 


ea cee nme naman Some men 


2 Fe eree tes ote Ne mmammembitieem mame: 


1S TRANSHISSION IN ERROR? 
—LF YES,BRANCH AROUND CALL TO TERMI 
CHECK MODULE 

T(5) ~~ BRANCH AND LINK TO” TERMINAL CHECK 


CC DERSWS ZERO. 
| BC ¥*+20(3) 


SET LENGTH FOR CODE CONVERT 10 22 
SET REG1 TO INPUT ADDR = CDHEAD ~~ 
SET REG2 TO OUTPUT ADDR = CDHEAD | 
SET A#=ADOR TO TABLE = TBL2 


oe aint that sa tem 


_ oo BC 6Y2ECT(S) BRANCH AND LINK TO CODE CONVERT ~~ 
% 2 ; 
¥ . . 
os ~~ —_— MOVE NESSAGE LENGTH TO INDEX Qo 
SUBTRACT © FROM INUEX 1 
IF MINUS» BRANCH _ARGUND NEAT CALL T. 
ae gen nan, sae a a et as Reali ola oe emo te 
(3)sCCSIZE SET LENGTH TO REMAINING LENGTH OF 


SET REGi TO INPUT ADDR & CDIN+6 
SET REG2 TQ OUTPUT ALDOR #= CDIN+6 
SET A@ADDR TO TABLE = TBL3 Z 
Chile), Ccils) BRANCH & CINK TO CODE CONVERT 
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ROUTINE LOGIC--CD=30 PARTITION 


Sixteen characters of the output (MIS header, CDHEAD) are 
converted from System Ten USASCII to output code and then 
any remaining characters in the message are converted fre 
CD-30 code to output code for later recording. These 1lé 
two conversions are optional; see Section 5, "Modificat 
for Code Conversion" 


Faulty Read. Condition codes are checked immediate: 
the Read instruction. On condition code 1, 'PAR1.! i 
into the error description field CDERID (t 
character of which is also CDERSW) to indicate a parity 
error. Condition code 4 will cause « - 

into CDERID, indicating a fault 
proceeds normally until after the f 
If CDERSW # QO at this point, 
TCSTRT to verify message length ‘ 0 
conversion routines because | | Oct be in proper 


code to be written on the tape with the errors noted. This 


“the program 
conversion. 


External References: 


ZERO, ONE, TWO, SIX, PR CM, SIZE1, SIZE2, 


CCSIZE, IADDR1,. IADDI , €C1, CC4, CC8, TADDR1, 
TADDR2, TADDR3~--Co 
TCSTRT, CDPAR1 AR2--Partition 


Referencing routines 


ROUTINE LOGIC--CD-30 PARTITION 


¥ 
TTT ETA CKNGHLEDGEMENT MODULE UT 


*% 
CDACK MC CDERID(1)sCDGOOD © : , 
aS ata ROR Maa “BEFORE ERRO Ro a x i eS 


C TRNCDE»sEIGHT | | is T SADGE TRANSACTION? 
BC oo tg 


cette, AO me ene 


f 

ANSWISSION Lh Beek © 
BC $4502) | . 
WH 0(2),02(3) a 278 : | 

Tt op ee Oe Le ee ee ee B C~ G Oo I N HT { eC ) PEST NE pe ert ee NRE atte nee Te ee eeragT Ce Siew oer Se cae nt ee CER NE ME Te Ce eee, ges ey Pe ES ge ay 
W  0(2)s02(3) | 
BC COIKH2#10(5) 

Remsen er ae OE ie ( ag ee 

BC CDOIKRH (2) 

W Of(1)202(3) 


“nC COPARSsCUERID 
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ROUTINE LOGIC--CD-30 PARTITION 


CDACK 


Acknowledgement 


Explanation: 


Save error code 1, 
several testsS are made. 
indicating a badge transaction, 
CDINH, a routine that directs it 
routine CDERPO or to output wri 


Next, CDERSW is checked for error é If there is none, 
ACK is written on the | . and the program 
branches to CDINH if the. v The same 
procedure is followed . 
stored in CDERSW. If ne: 
normal way by the CD-3! 
made and '3PAR3' is m 
response from the ter 


The program now fa 


External References: 


CDGOOD--Partition 


CDINH 


None 
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- ROUTINE LOGIC--CD-30 PARTITION 


- # 
““CDINH” CUUINHSwsZERG OT TG SS 
BC ¥*4¢10(2)sCOINH(8) IF Yt 
C CDERSW,ZERDO me PS: 2 
oon Foe BE CDERPO(3)s2COnT(5) °° 7 OTF. 
x , " TF YES 
% : 


as ek 7) 6728/7 


ROUTINE LOGIC--CD-30 PARTITION 


CDINH 


Explanation: 


This routine directs the program to CDERPO for 


processing if an error code is stored in CDERSW and. to the 
appropriate write routine if no errors have been 1 ed. 


External References: 

| ZERO, CDWT, INHSW--Common 
CDERSW, CDERPO--Partition 

Referencing Routines: 
CDACK, CDE2 

System Constants Affected: 
None 

Exits: 
ae Normals: 


b. Abnormal: 
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ROUTINE LOGIC--CD-30 PARTITION 


ag ee et te ne peeks ak TA te 
x 
Re ““EREOR PROCESSING “MOOULE (tS “Se tse en emer venues earayat 
. , 
CCERPO C ECCUNTs THREE ERROR (BUFFERS FILLED? 
me BE EDEL (ppc eee 
MN ONE, LNHSW ; : IF YESsTURN ON INHIBIT 
OMN ONES ERRGW | —  JURN ON ERROR SwIICH 
oo CO TS els ZERQ ATT FOR ERROR BUFF 
BC ¥+#1C(2)s*=10(8) | TO BE PRINTED ON 7 
CbeL C ECCUNTJONE : WHICH BUFFER IS E 
BC ¥4+30(2),4%+50(3) > 7” “foe UlCU —_ 
MC ZERGSsX1 SET INDEX TO FILL F R BUFF 


BC CDE2(5) 7 

TAC THT YA XQ SET INDEX, 
BC CbE2e(5) 
MC SIXTY4)X1 


Be ee are oil GAA Ee ee eee 
* FILL ERROR BUFFER 
# | | 

“TCDE@ MC CDERID+AL (4), ERRBUF +7 (94)0 : 4) Mpeg ee ee 


MC CDPINOJERRBUF +12 (9141) 
NC SCHRSysERRBUFF+15(91) 
a A Ee SEL te? C1 dy ERABUP STS (94) 
MC SCL1+3 (1) sERRBUF+20(91) 
MC TCTIDsERRBUF +221) 
Te MC TRNCOESERRBUP+O7 (91770 
| NC CONSGL4+1(3)s ERRBUF H29E 
MC COTCNT+1(3),ERRBUF +35 
Senne eer ee ae ee rey ae a ea 
A UNE,ECOUNT 
. | C COGCOD,CDERSW 
I pe ene Re ROE Ye 
MC COGQ00,CDERSH. YESsRESTORE LOCAL ERROR SWITCH 
ro BC CDINH+20(5) AND RETURN TO ERRUR PROCESSING 
Pea ee Nat See ee ce ROUTINE IF NECESSARY Seer pee ee eee 


¢ COD Be pee ae 
LENGTH ~ 
: MES SAGE LENGTH, 


eee eevee ae tee EASE IEP nt Halen ame Ramen me te eee Fan Yt 


~~ 


: TO ERROR COUNTER 
ERROR 3 OCCURED? * 


eee nn eae cnn a tN eee caiman ented oem remmntiilie shu ats + Am pane ene 


ye MO ZERO CDE, . CLEAR THE LOCAL ERROR SWIICH 
cern Gatke.o ZEROS(3 ——~< CLEAR MODULUS REMAINDER AREA UU 
7 7 C ChGoog IS TRANSHISSION IN ERROR? 
* _ _  COGOOD CONTAINS ERROR NU 19224 OR Se 
oe a BG CONT 2) ae ag ee IF NOs GO TO WRITE ROUTINE WUT 
3 7 * MC EyCOHEAD «8. | MOVE E TO HEADER 
ae , ‘MC CBGOODsCOHEAD+2 MOVE ERROR NOw TO 3RD POSITION OF 
Pao A ONES PER oo ADD 1 TO EKROR RECORD COUNT | * 
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ROUTINE LOGIC=-CD-30 PARTITION 


CDERPO 


Explanations; 


9-43 


Error Processing 


This routine checks the three error buffers as erro 
noted. ECOUNT = 3 indicates that the error buffers are 
full so 1 is moved into INHSW and ERRSW to tur ~ them on. 
The program executes a branch and swi ch routine until the 
errors are printed on the communica. ns terminal when the 
CPU .1S processing the standard 1: 

INIT, and INHSW is turned off ( 


or falls through to CDE. 

empty; CDE2 is the routine | 
moving pertinent information 
incremented by 1. 


the empty one by 
-ERRBUF. ECOUNT is the 


CDGOOD is compared t error 3 (faulty 
transmission of AC Se As the contents 
of CDERID (CDERSW) é = moved _to -CDGOOD in CDACK 
before error 3. z - occurred, an unequal compare 
indicates that er , the one just processed in CDE2. 
CDGOOD is mo! _back to CDERSW and the program branches 
back to CDINH cher error processing if necessary to 
record err ~ 5 if they have occured. 


SDERSW (no ACK or NAK transmission errors 
ady processed), 0 is moved into CDERSW 
D. is now compared to 0. An equal compare 
rror 3 was the only one encountered and, 
ready been processed, the program branches 

» recorded on tane or disc. On an unequal 
priate error identifications are moved into 
the program branches to CDWT. The "E" (for 
‘Ls moved into CDHEAD must be defined in the DM 
as a System Ten USASCII character with a bit 
ture that will result in the letter E in the output 


ZERO, ONE, THREE, FIVE, INHSW, ERRSW, ECOUNT, PERCNT, 
ERRBUF, SCHRS, SCHL1, CDWT SPACE--Common 
THTY2, SIXTY4, CDERID, CDPNO, TCTID, TRNCDE, CDMSGL 


CDMSGL, CDTCNT, CDGOOD, CDERSW, CDINH--Partition 
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ROUTINE LOGIC--CD=-30 PARTITION 


Referencing Routines: | 

CDINH 
System Constants Affected: 

ECOUNT, INHSW, ERRSW, PERCNT 
Exits: 


a. Normal: CDINH, CDWT 


b. Abnormal: None 
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ROUTINE LOGIC--CD-30 PARTITION 


* | TAFE WRITE ROUTINE | 
* & 
CDOwT. SIXTN»COMSGL 
CONSGL*X2 | 
oer eee OG. WTEXIT#1(6)sATSTRISY 
| BC CBOSTR(5) 
WTBUF DM A'CDHEAD! 


WTBUF OM A. 'COMSGL! 
CDWT A SIXTNs CDOMSGL 
Het SS OT ECSES ONE ee 
BC *4106(2)54%+20(5) 
BC ¥*e20(8) 
FAP Oy ae ep ee ee C : D if hn, D C 3 Z E R 0 eee tee en ial 2 Xe ct 4 a 
BC ¥410(2)5#*"10(8) © TINUE 


TINUE inv WAIT LuuP 


* INTINUE IN WAIT LOOP 
NCO WTBUF se DINPTLO UC TE tUFFER AKEA- es 
* 


BC DSTREX+1(6)s0STOR 
wm OTS CS ZERO 
BC CDSTR(2)sCDWT+ 


AND LINK TU DISC WRITE 
RUE COON 
~YESs BRANCH TO BEGINNING | 

7 ‘OF. PARTITION 

a ia ee eae a = —— NOs TRY AGATN 
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ROUTINE LOGIC--CD-30 PARTITION 


CDWT 


Link To Write Routines 


Explanation: 


Tape Output 


message length which is then moved to X2 Poi u 
Tape Write Module. A branch-and-link is executed to WTSTR, 


the beginning address of the Tape e Module. On return, 
the program branches to CDSTR at of the CD-30 
partition. | 


External References: 
SIXTN, WIEXIT, WTSTR--Common 
CDSTR--Partition 

Referencing Routines: 
CDINH, CDSTR 


System Constants Affec 


Exits: 


“instruction adds the length of the header prefix 
the message length contained in CDMSGL. The standard 
der prefix is 16 characters; if the prefix is a 
t length, ‘SIXTN' must be redefined. The status of 
Cc is checked and, when the disc is available, the 
of the output storage area is moved to the write 


The program executes a branch-and-link to DSTORE in the 
isc Write Routine. If the write is good, the program 
branches back to partition beginning (CDSTR); if bad, it 
tries the write again. 

rnal References: 

ZERO, ONE, SIXTN, DISCSW, DINDC, DINPT1~--Common 


CDMSGL, CDSTR, WTBUF--Partition 
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ROUTINE LOGIC=--CD-30 PARTITION 


Referencing Routines: 


CDINH, CDERPO 
System Constants Affected: 
None 
Exits: 
a. Normal: CDSTR 


b. Abnormal: None 
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ROUTINE LOGIC--CD-30 PARTITION 


TERMIGAL TRANSACTION CRECK “MODULE 


THE PURPOSE OF THIS ROUTINE 1S TOU C 
TERMINAL NUMBER», AKD LENGTH OF ME 
OF EVERY Cfi#3Q0 TRANS AGAINST A P 

“"TCSTRT NC ZERGSsXY °° OUT . 

TCHK1 MC TRNCDE(1)sx1+2 
M FOURSsX14+2(¢1) 
TT CO OT CTABL (S74 )s BLANK 
BC TCERR2(2) 
TCwKe NC ChMNSGL+1(3),1CTS14 
DO FOURS TCTS1 02) 0 70 
C TCTIS14+2(1)sTCTABL+2€ 
a _ BC TCEXIT=10(2) 
~~ TCERRS NHC TCIW¥LMPCDERID 


KKK KKK KEK 


tee ae een Soe oa me ne ee ew te ee ce ee ee ee ee 


MC TCTABL(341)sCDTG ; 
BC TCEXIT(5) 
TO ORG ee . a eee toe eo, 
TCITC OM Cl4TRAN! 
TCERRe NC 
OF ig ve dae a SO gs ee BC : 2 = - Be Pe ee Ss Rony SIUC AS Ly VET wie 
MC 
TCEXIT BC 
oo ORG MR oo yi et ae 
TCS DM ; 
TCTASBL OM C ¢ O01 001 000 O02 OO1 ' 
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ROUTINE LOGIC--CD-30 PARTITION 


Ce RULTIPLESENTRY TCSTRT 


cee te et 3 sees tence uanemeeets are wae innate vane enn ene rember: cane “mips Seether Fighett Ate eieeteoneict erie h ees Semen tieretiA me te ow 


ORG *¥*e5 
TCITC OM Ct4TRANt 
mo yg ne 
TCERRKe NC TCITC,CDERID 
fiC BLA K(4),COTCNT 


ane. gn ep een cp tc eatin se ictsieesd ein erst” nit arson a eet centres PA ce Gk wet Seri i ree 


ae a tae te a ee nO tN A RNS IN a So ae 


TCEXIT BC TCEXIT(S) 
*% 
os 


Peete a eee eG ee ae ‘ORG 


WITH 


MODULUS REMALBDER 2 


¥ 
4 | 
—TCSYRT BMC ZERCS ey KA OO ET LEK 1 
C TCTlis PCTA4L (91) COMPARE TCTID & TERMenNUeIN TOTAL 
BC TCuntte) IF kQuaLy FI TRANSACIT [UN COGE 
~ C TCECTFICTASwIN1) ~~ er re es 
BC TCERRICA) IF EQUAL, GO TO ErxKOR ROUTINE 
A TCCH.S1+2(2)5X1 IF NOTsADD 36 TO LNDEX 1 
BE TCSTRT+10(5) ~~ 9° F=G©O FO TEST WEXT TekM [D NUe 00 
¥ ‘ 
| ORG ad) 
sags oo Ua ae = 10 91" ic mam ala 
¥ 
TCERR1 MC TCTERM,COERID SIGNAL TERMINAL ERKOR 
memes “BE TCERR +L OUR pT EXT TE | — 
¥ x 
_TCwKA ne ZERCSs Xe | SET TNOEX 2@ 
ee 
NC TRHCDE (1) sx2e+e ¥ 
M FOURsXe+2e2(1) * . COMPUTE TABLE 
TAT XA +A AVa KAD Oe _ 
C TCTABL(341)26LANK IS PUSITION 
bc TCERRE (2) | IF YESsSIGNAI 
¥ | 
MC CDOMSSL+1(3),7TCTS1 
D FOUR, TCTSI(2) 
TOT TCTSU42( 1) 9 TCTABL42( a4) 00 epee een e eee ee ge 
BC EERE VELOCE) IF 
Z 
TCI NEM CDERTD Bpeeirpes esate IST oa) ONG LENGTH NSG 
7 MC TCTABL (3,1), COTCNT+1 mye) ENGIH TO CDTCNT 
BC TCEXIT(5) E | | 


SACTION cuve, INVALID 


“TRNCDE ERROR 
QUT COTCNT 


on ren 9 eres tn aman samen teeter mR «A en 


Lick: aegis etme eon tet! aR me eS tre oe Ret estam creme tani te Int mts npuateen eaten AeNaRT a ene at cease tet A RAR teen a 


TCIWLN OM CFSibLM ! WRGNG LENGTH MESSAGE 
FOURS OM C!'oo04! io 
oe TCCNS1 OM C!C036t aa ela a a 
TCTS1 ODM CtO0O00! 
¥ f ; 
— TCTABL: DM 0C360° TERMINAL TRANSACTION TABLES TTS 
DM C36'9999001 001 002 003 VU3 003 O00 ! | 
DM C36'8888000' UOL 002 003 000 VO2 QGO3 YUN ! 
oo ==— OM CBBIT7770 bE U09 -00L 002.002 O0e 000. 1 ee ere eer 
OH. C36'6666001 YO3 003 VO2 vO2 001 001 O00 '. 
DM C361555 0V1 002 001 001 001 003 YOO ! 
oe OM C361444 002 002 OOL O01 VU2 003 DOB Fim 
DM 3 001 000 000 O02 vo01 ! 
OM | 001 002 YOO 001 OVE ! 
ares) V1o00e 001 003 G02 001 000 O01 DOR Bm 
OM 300001'003 002 002 001 003 900 001 1 
TCEOT ' | cc = o 
ee Femmes stn | fs aoa Se ae cera een nt 
my ROUTINE iN 
: stenenrte $e ie pre aig bes ed awe a pam 
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ROUTINE LOGIC--CD=-30 PARTITION 


or TERMILWAL TRANSACTION CHECK MODULE © 


* 

x 

* 

# OF The TEANSMISSION ACCORDING TO The Lik 
* A FPRESEFINED TAdhLe ae 
. | 

. 


Corer NC zescoget = 3 oF eet 
MC ZERGS»s Xe 
* 


mmm MOOT RNCDE (1) 9 Keto 00 ag 
M FOURsX2+2(1) * 
A X2+2(2)9 X14) : 
TS OO TC TABL (Sy 109 BLANK OT 
BC TCERR2(2) } 

¥ 
Sere CDNSGL41 (3 i9 TCTAGL Ce 


PCGAGE LENGIN CHECK? oo 
BC TCEXIT=10(2) 3 


Ss EXIT 
: | 
ea Me TC InENS COERIO 
MC TCTABL(341)sCOT 
BC TCEXIT(S) 
ager ee cc ina ec eee 
¥ 
— -«TCERR2 NC TCITCs CDE 
ceils (cag) A Cae. 
¥ 
TCEXIT BC TCEXI 


*¥ 
TCTABL DOM Oc3i 


“TF NOJSTGNAL KRONG LENGTH MSG 
MOVE CURRECT LENGIM 10 CDICNT 
XT 


" SIGNAL TRNCDE ERROR 


RID 
3 “BLANK GUT COTCNT 00 


es 


‘ TERMINAL TRANSACTION TABLE 

ss . 076 O76 U76 V76 O76 O42 
~- TCEOT DM < Creel ee ee ee ye ee, hg Hy Sticemn eee a Garagesn hee eee 
TCITC TRANSACTION COLE INVALID 
TCIWLN QO] WRONG LENGTH MESSAGE 


~~ y sie Na acer, area ance Pas inca uel pee UY the audi RARE pea 


ee em tee enter ar NN RA pd EE MO an ee Rn Ni te eer me me vane OF ovement ott ERI OO ctr Me Ie mma 
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ae = 
as 
* 

ee MULTIPLESENTRY TOSTRT 
¥ 
: , 

“TOSTHRE MCE ZEeCSse KL CO 


C TCIITDs,TCTAGL (91) 
BC TCeKi(2) 


SE TCEGTY TCTABL IL) > 


ee ee CST REFLOC Sp re 


ee C T ER he Dp 1s nnn O88 6 T ER ae ee ey ee 


BC TCERR1(2) 
A TCCNS142(2)9X14 


ORG Kad 


“SET. TNueX i 
CORPAKE TCP IO 6 TEKtMeinye 


AF 


EQUAL» 


EQUAL, 


TO TEST. 


TCERR1 MC TCTERMsCDERID 
wo BC TCERRE IOS) arin 
: 
TCwK1 nc ZEROS» x2 
Se 


a A KAKA AD XL 


MC TRNCDE(1)9x242 
M FCURsXK2+2(1) 


CC TCTABL (351) 5 8LANK 
BC TCERR2(2) | 
¥ 
C COMSGL41(3)sTCTABL (> 
BC TCEXIT=10(2) 


1) 


Aen Retain ar eee Ae i RETIRES eRe ts nal ts ak am et: mnie me tHe SAR te kM el, i at Sa eR OY maim See wos means: = mepmIMR eR ett ems SA 


¥ 
MC TCIWLM»CDERTO 
MC ICTABL (341) 2COTCNT#1 


ee Oe. TOERIA LS) eee * 


a nerenrensentens 


oom ME BLANK (4), CDTCNT™ 


076 076 
45 076 076 
ie ais , O15 G76 
O76 065 
076 076 
eer ae 076 U76 
076 076 
076 076 
ae aaa 076 076 
076 O24 
TCEOT 
ee ee et hs, 
“ . 
4 


¥ 
ea ore ae 


ORG #85 
TelIC? Oh ClatRAN Se 


TCERRe MC TCITCs CDERID 


¥ 
TCEXIT BC TCEXIT(5) 
Be one ie pee 


ORG *5 
TCIWLM DMN CISWwhLM 3 
“FOURS ~GM C!OQO4t 
TCCNSL OM C!OO36! 


TERMINAL 


076 


‘076 


Q76 
076 
024 
G76 
076 
O76 
035 
Q76 


GO TO ERROR ROUTINE 
NOTsADD 36 10 LNDEX 1 | 
Tet TO NO. 


BGT, BODE 29. 


NEXT 


ENG IH 


TRNCUE ERROR 


TRANSACTION 


076 
076 
U76 


076 


0/76 
035 
076 
024 
O76 
076 


076 
076 
O76 
076 
076 
076 
Oe4 
076 
076 


076 


FIND TRANSACTIUN CODE 


RONG LENGTH SG 
TO CDITCNT 


tn ee te Ne eet eee “eR an ee eee Berens 


WRONG LENGTH ‘MESSAGE 


lin TCTAGL 


Hn ee ee Seca mene ee 


ACTION CODE INVALID 


OUT CDICNT oro errr 


Mn ete a eee ae ec treatin men Mn Ltn me erttnnte, 


TABLE 


O42 ! 
O42 3 
On 
O42 1 
O42 7%. 
042 1 sabi aaa 
O42 9: 
O42 1 
oa teenie hee 
O42 t 
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-TCSTRT 


Explanation: 


, pertaining to this trans 


Terminal Transaction Check 


This iene uses transaction sede TRNCDE and ,one™ “of the 
four versions of TCTABL (see Section 5 for explanation) to. 
verify the message length that was calculated in CDRD. The 
first -seven instructions in the-x tiple-entry TCSTRT use 
he nér (TCTABL entry. 
use thése instructions. 
; product is placed in 
ae *e, use in finding 
the information 


The Single-entry tables do 
TRNCDE is multiplied by 4 and: 
index register’ 2, which is, 
the .location in TCTABL 


particular program). 
message length is divi 


Invalid transactio 
(SWLM) indicator: 
the message is 
moved into CD! 
routine for pi 
terminal. 


| into CDERID if required. lf 
he correct length is 


The progra to CDRD to continue with code 


conversion. 


E, TCTABL, TCTID, CDMSGL, TCIWLM, 
TCNT=-Partition 


e-ROutLines: 


>a, ‘Normal: TCERR2, TCEXIT 


bs, “Abnormal: None 
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APPENDIX A 


TABLE OF INTERNAL CODES 


es a comprehensive 
routine and code 


Code Convert Logic 
explanation of the 
conversion tables, 
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SYSTEM TEN 
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SYSTEM TEN 
CHARACTER 
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APPENDIX B 


SPECIFIC PROGRAM. CHANGES REQUIRED FOR DIFFER 


TERMINAL PARTITIONS AND FOR DIFFERENT OPTI 


Numeric Constants 


‘number. DEE Acre for 


CD5P Five times thi 
each partitii 
resides. 


CDPNO which that program 


TCTABL tion table. Length depends on 


See Section 5 for explanation of 


Storage Areas 


* large enough to hold table update 
from communications terminal. 


‘Output area for double-frame code conversion. 
Must be large enough to contain MIS header pre- 
fix CDHEAD and entire terminal message after 
conversion to double-frame code. cCDIN (input 
area for double-frame conversion programs and 
input/output area for single-frame conversion 
programs) and CDOUT must be used as_ address 
constants in the Code Convert Module 5008. 


fhe first call to Code Convert is used to convert 
transaction code and terminal ID (TRNCDE and TCTID) to 
System Ten USASCII. The Second and third calls to Code 
Convert are optional. The values in the Code Convert 
tables will depend on the output code. See Code Convert 
Logic Manual 5008 for tables and constants. 
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APPENDIX BO 


CDERPO--Error Processing Routine 


An instruction near the end of this routine moves an "BE" 
(for error) to the MIS header prefix, CDHEAD: 7 


MC E,CDHEAD. 


CDHEAD is either in USASCII or has been converted to an 
output code; therefore, operand A (‘'E' here) must be 
defined as a constant with a bit structure that will result 
in the letter E in the output code. 


Terminal/Transaction Tables 


Section 5 explains how to set up Single- and 
transaction tables. The constant TCTABL : 
according to which type of table is 
instructions of TCSTRT, Terminal/Transact 
must also be modified. If the multip 
used, the initial instructions that | 
terminal ID in TCTABL must be included, | 
various modifications of TCSTRT a 
logic discussion of TCSTRT, page 9- 


Tape/Disc Output 


Label DM 
WIBUF DM A'CDOUT; put of double-frame 


DM utput of single- rame 


sc output: CDMSGL must be 
M'd immediately before 
CcDpouT or CDHEAD. 


DM 


A numeric constant of '16' in the first 
instruction in the CDWT routine. This 
istant must be the length of the mess- 
prefix. If other than the standard 
haracter MIS prefix is used, this 
constant must be redefined or changed. 
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APPENDIX C 


CONSTANTS IN COMMON USED BY CDCHK.%3 HAT ARE DEFINED IN 
THE CONTROL MODULE 


BLANK THREE 


MIS 16—character prefix 
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